home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 2 / Amiga Tools 2.iso / emulatoren / st / emu.asm < prev    next >
Assembly Source File  |  1994-09-21  |  40KB  |  2,518 lines
  1.  
  2. dsksync    EQU    $7E
  3. bltbpth    EQU    $4C
  4. potgo    EQU    $34
  5. adkcon    EQU    $9E
  6. color0    EQU    $180
  7. color1    EQU    $182
  8. color2    EQU    $184
  9. color3    EQU    $186
  10. _custom    EQU    $DFF000
  11. ddfstop    EQU    $94
  12. bltapth    EQU    $50
  13. bltcon0    EQU    $40
  14. bltcon1    EQU    $42
  15. diwstrt    EQU    $8E
  16. intreq    EQU    $9C
  17. bplcon0    EQU    $100
  18. bplcon1    EQU    $102
  19. foreground    EQU    $888
  20. dskpth    EQU    $20
  21. diwstop    EQU    $90
  22. ddfstrt    EQU    $92
  23. bltdpth    EQU    $54
  24. intena    EQU    $9A
  25. bltafwm    EQU    $44
  26. joy0dat    EQU    $A
  27. intreqr    EQU    $1E
  28. bltbmod    EQU    $62
  29. bpl2mod    EQU    $10A
  30. potinp    EQU    $16
  31. bltamod    EQU    $64
  32. bpl1mod    EQU    $108
  33. vhposr    EQU    $6
  34. bltalwm    EQU    $46
  35. dmacon    EQU    $96
  36. bltcdat    EQU    $70
  37. dsklen    EQU    $24
  38. MEMF_CHIP    EQU    $2
  39. MemList    EQU    $142
  40. bltsize    EQU    $58
  41. MaxExtMem    EQU    $4E
  42. bltdmod    EQU    $66
  43. **********************************************************************
  44.     BRA    lbC0000BA
  45.  
  46.     LEA    $78000,A0
  47.     MOVE.L    #$1FFF,D0
  48. lbC000010    CLR.L    (A0)+
  49.     DBRA    D0,lbC000010
  50.  
  51.     MOVE.B    #2,$78260
  52.     MOVE.B    #0,$7FA01
  53.     LEA    $3FF00,A0
  54.     MOVEQ    #$7F,D0
  55. lbC00002E    CLR.W    (A0)+
  56.     DBRA    D0,lbC00002E
  57.  
  58.     MOVE.B    #0,$7FC21
  59.     MOVE.B    #0,$7FC23
  60.     MOVE.B    #9,$7FC25
  61.     MOVE.B    #3,$7FC27
  62.     MOVE.B    #5,$7FC29
  63.     MOVE.B    #1,$7FC2B
  64.     MOVE.B    #6,$7FC2F
  65.     MOVE.B    #1,$7FC31
  66.     MOVE.B    #6,$7FC33
  67.     MOVE.B    #0,$7FC35
  68.     MOVE.B    #10,$7FC37
  69.     MOVE.B    #0,$7FC39
  70.     LEA    $701DA,A0
  71.     MOVE.L    0.w,D0
  72.     CMP.L    (A0),D0
  73.     BNE    Deadend
  74.     LEA    $40000,A0
  75.     LEA    $70000,A1
  76. lbC0000B0    MOVE.L    A0,D0
  77.     EOR.L    D0,(A0)+
  78.     CMP.L    A0,A1
  79.     BNE    lbC0000B0
  80. lbC0000BA    CLR.B    $3FF3A
  81.     MOVE.W    #0,D0
  82.     BSR    lbC00064E
  83.     LEA    _custom,A0
  84.     MOVE.W    #$7FF,dmacon(A0)
  85.     MOVE.W    #$7FFF,intena(A0)
  86.     MOVE.W    #$3FFF,intreq(A0)
  87.     MOVE.L    #$700EA,$20
  88.     MOVE    #$2700,SR
  89.     NOP
  90.     NOP
  91.     NOP
  92.     NOP
  93.     NOP
  94.     NOP
  95.     NOP
  96.     NOP
  97.     NOP
  98.     NOP
  99.     NOP
  100.     NOP
  101.     NOP
  102.     NOP
  103.     MOVE.W    #$FFFF,$73FF0
  104.     CLR.W    $3FF0A
  105.     MOVE.L    #$71034,$4100C
  106. lbC000122    SUB.L    A5,A5
  107.     CMP.L    #$31415926,$426(A5)
  108.     BNE.S    lbC000146
  109.     MOVE.L    $42A(A5),D0
  110.     TST.B    $42A(A5)
  111.     BNE.S    lbC000146
  112.     BTST    #0,D0
  113.     BNE.S    lbC000146
  114.     MOVE.L    D0,A0
  115.     LEA    lbC000122(PC),A6
  116.     JMP    (A0)
  117.  
  118. lbC000146    MOVE.W    #7,$484
  119.     MOVE.W    #$F02,$E82
  120.     MOVE.B    #1,$78201
  121.     MOVE.B    #0,$78203
  122.     TST.L    $3FF00
  123.     BNE    lbC000276
  124.     MOVE.L    4,A6
  125.     MOVE.L    MemList(A6),A6
  126. lbC00017A    BTST    #MEMF_CHIP,15(A6)
  127.     BEQ.S    lbC0001AE
  128.     CMP.L    #$C00000,$14(A6)
  129.     BGE.S    lbC0001AE
  130.     MOVE.L    $14(A6),D0
  131.     AND.L    #$FFFF0000,D0
  132.     MOVE.L    D0,$3FF00
  133.     MOVE.L    $18(A6),D0
  134.     MOVE.L    D0,$3FF04
  135.     BSR    lbC000256
  136.     BRA    lbC000276
  137.  
  138. lbC0001AE    TST.L    (A6)
  139.     MOVE.L    0(A6),A6
  140.     BNE.S    lbC00017A
  141.     MOVE.L    4,A6
  142.     TST.L    MaxExtMem(A6)
  143.     BEQ.S    lbC0001FA
  144.     MOVE.L    MaxExtMem(A6),A6
  145.     MOVE.L    #$C00000,$3FF00
  146.     MOVE.L    A6,$3FF04
  147.     BRA    lbC000276
  148.  
  149.     dc.b    'CODX OF THE BRAINS HAS DONE IT !'
  150.  
  151. lbC0001FA    CLR.W    $FC0000
  152.     TST.W    $FC0000
  153.     BNE    lbC000226
  154.     MOVE.L    #$FC0000,$3FF00
  155.     MOVE.L    #$1000000,$3FF04
  156.     BSR    lbC000256
  157.     BRA    lbC000276
  158.  
  159. lbC000226    LEA    $80000,A0
  160.     CMP.L    #'CODX',(A0)
  161.     BEQ    lbC000252
  162.     MOVE.L    #$80000,$3FF00
  163.     MOVE.L    #$100000,$3FF04
  164.     BSR    lbC000256
  165.     BRA    lbC000276
  166.  
  167. lbC000252    BRA    Deadend
  168.  
  169. lbC000256    MOVE.L    $3FF00,A0
  170.     MOVE.L    #$1000,D0
  171. lbC000262    CLR.L    (A0)+
  172.     DBRA    D0,lbC000262
  173.  
  174.     RTS
  175.  
  176. Deadend    MOVE.W    _custom+vhposr,_custom+color0
  177.     BRA.S    Deadend
  178.  
  179. lbC000276    LEA    lbC000280(PC),A6
  180.     JMP    $40688
  181.  
  182. lbC000280    BEQ    lbC0002F6
  183.     SUB.L    A5,A5
  184.     MOVE.L    #$38000,A0
  185.     MOVE.L    #$28000,D4
  186.     MOVEQ    #0,D0
  187.     MOVEQ    #0,D1
  188.     MOVEQ    #0,D2
  189.     MOVEQ    #0,D3
  190. lbC00029A    MOVEM.L    D0-D3,-(A0)
  191.     MOVEM.L    D0-D3,-(A0)
  192.     MOVEM.L    D0-D3,-(A0)
  193.     MOVEM.L    D0-D3,-(A0)
  194.     CMP.L    D4,A0
  195.     BNE.S    lbC00029A
  196.     MOVE.L    #$18000,A0
  197.     MOVE.L    #$400,D4
  198.     MOVEQ    #0,D0
  199.     MOVEQ    #0,D1
  200.     MOVEQ    #0,D2
  201.     MOVEQ    #0,D3
  202. lbC0002C2    MOVEM.L    D0-D3,-(A0)
  203.     MOVEM.L    D0-D3,-(A0)
  204.     MOVEM.L    D0-D3,-(A0)
  205.     MOVEM.L    D0-D3,-(A0)
  206.     CMP.L    D4,A0
  207.     BNE.S    lbC0002C2
  208.     MOVE.L    $3FF04,$42E(A5)
  209.     MOVE.L    #$752019F3,$420(A5)
  210.     MOVE.L    #$237698AA,$43A(A5)
  211.     MOVE.L    #$5555AAAA,$51A(A5)
  212. lbC0002F6    MOVE.L    #$30000,A0
  213.     MOVE.L    #$20000,D4
  214.     MOVEQ    #-$1,D0
  215. lbC000304    MOVE.L    D0,-(A0)
  216.     CMP.L    D4,A0
  217.     BNE.S    lbC000304
  218.     BSR    lbC000A0C
  219.     SUB.L    A5,A5
  220.     MOVE.L    #$980,A0
  221.     MOVE.L    #$10000,A1
  222.     MOVEQ    #0,D0
  223. lbC00031E    MOVE.W    D0,(A0)+
  224.     CMP.L    A0,A1
  225.     BNE.S    lbC00031E
  226.     MOVE.L    $42E,A0
  227.     SUB.L    #$8000,A0
  228.     CMP.B    #2,$78260
  229.     BLT.S    lbC000340
  230.     LEA    $30000,A0
  231. lbC000340    MOVE.L    A0,$44E(A5)
  232.     MOVE.B    $44F(A5),$78201
  233.     MOVE.B    $450(A5),$78203
  234.     MOVE.W    #$7FF,D1
  235. lbC000358    MOVE.L    D0,(A0)+
  236.     MOVE.L    D0,(A0)+
  237.     MOVE.L    D0,(A0)+
  238.     MOVE.L    D0,(A0)+
  239.     DBRA    D1,lbC000358
  240.  
  241.     MOVE.W    #$FFF,D0
  242.     MOVE.L    $40014,A0
  243.     CMP.L    #$87654321,(A0)
  244.     BEQ.S    lbC00037C
  245.     LEA    $40008,A0
  246. lbC00037C    MOVE.L    4(A0),$4FA
  247.     MOVE.L    8(A0),$4FE
  248.     LEA    lbC0003A4(PC),A6
  249.     CMP.B    #1,$78260
  250.     BLT    lbC00068E
  251.     BEQ    lbC000704
  252.     BGT    lbC00076A
  253. lbC0003A4    MOVE.L    #$3FFB0,$80(A0)
  254.     TST.W    $88(A0)
  255. lbC0003B0    BSR    lbC000668
  256.     TST.W    4(A0)
  257.     BPL.S    lbC0003B0
  258.     MOVE.W    #$83C0,$96(A0)
  259.     MOVE.L    #$7111C,$46A(A5)
  260.     MOVE.L    #$71174,$476(A5)
  261.     MOVE.L    #$40FCA,$472(A5)
  262.     MOVE.L    #$71294,$47E(A5)
  263.     MOVE.L    #$712C0,$47A(A5)
  264.     MOVE.L    #$70FC4,$506(A5)
  265.     MOVE.L    #$70F82,$50A(A5)
  266.     MOVE.L    #$71116,$50E(A5)
  267.     MOVE.L    #$71116,$512(A5)
  268.     MOVE.L    #$40D62,$502(A5)
  269.     MOVE.L    $3FF04,$436(A5)
  270.     MOVE.L    $3FF00,$432(A5)
  271.     LEA    $755A,SP
  272.     MOVE.W    #8,$454(A5)
  273.     ST     $444(A5)
  274.     MOVE.W    #3,$440(A5)
  275.     MOVE.L    #$16DA,$4C6(A5)
  276.     MOVE.W    #$FFFF,$4EE(A5)
  277.     MOVE.L    #$40000,$4F2(A5)
  278.     MOVE.L    #$93A,$4A2(A5)
  279.     MOVE.L    #$40670,$46E(A5)
  280.     MOVE.W    #$FFF,D0
  281.     JSR    $40EBA
  282.     LEA    $407CE,A3
  283.     LEA    $40670,A4
  284.     LEA    $40B50,A1
  285.     ADD.L    #$2000000,A1
  286.     LEA    8,A0
  287.     MOVE.W    #$3D,D0
  288. lbC000488    MOVE.L    A1,(A0)+
  289.     ADD.L    #$1000000,A1
  290.     DBRA    D0,lbC000488
  291.  
  292.     MOVE.L    A3,$14
  293.     MOVEQ    #6,D0
  294.     LEA    $64(A5),A1
  295. lbC0004A0    MOVE.L    #$407CE,(A1)+
  296.     DBRA    D0,lbC0004A0
  297.  
  298.     MOVE.L    #$406DE,$70(A5)
  299.     MOVE.L    #$7081A,$6C(A5)
  300.     MOVE.L    #$70ADE,$68
  301.     MOVE.W    #$C028,_custom+intena
  302.     MOVE.L    A3,$88(A5)
  303.     MOVE.L    #$70D6A,$B4(A5)
  304.     MOVE.L    #$70D62,$B8(A5)
  305.     MOVE.L    #$49F66,$28(A5)
  306.     MOVE.L    A4,$400(A5)
  307.     MOVE.L    #$407EE,$404(A5)
  308.     MOVE.L    A4,$408(A5)
  309.     LEA    $4CE(A5),A0
  310.     MOVE.L    A0,$456(A5)
  311.     MOVE.W    #7,D0
  312. lbC000504    CLR.L    (A0)+
  313.     DBRA    D0,lbC000504
  314.  
  315.     LEA    $409AE,A0
  316.     MOVE.W    #$51E,A1
  317.     MOVEQ    #$1F,D0
  318. lbC000516    MOVE.L    (A0)+,(A1)+
  319.     DBRA    D0,lbC000516
  320.  
  321.     MOVE.B    $7FA01,D0
  322.     MOVE.W    D0,-(SP)
  323.     JSR    $42408
  324.     MOVE.W    (SP)+,D0
  325.     MOVE.B    D0,$7FA01
  326.     MOVE.L    #$7FFF,D0
  327. lbC000538    JSR    $40556
  328.     DBRA    D0,lbC000538
  329.  
  330.     MOVE.W    #$CCC,D0
  331.     LEA    lbC00054A(PC),A6
  332. lbC00054A    MOVE.B    $78260,$44C
  333.     MOVEQ    #0,D0
  334.     JSR    $4A9F8
  335.     JSR    $4A96E
  336.     MOVE.L    #$700BA,$46E(A5)
  337.     MOVE.W    #1,$452
  338.     MOVE    #$2100,SR
  339.     MOVE.W    #$999,D0
  340.     JSR    $44AF8
  341.     MOVE.W    $4001E,$8840
  342.     JSR    $44C42
  343.     JSR    $4053C
  344.     JSR    $40E56
  345.     TST.W    $482
  346.     BEQ.S    lbC0005C2
  347.     JSR    $40C4A
  348.     PEA    $40538
  349.     PEA    $40538
  350.     PEA    $40524
  351.     CLR.W    -(SP)
  352.     BRA    lbC000636
  353.  
  354. lbC0005C2    JSR    $40C4A
  355.     MOVE.W    #$666,D0
  356.     MOVE.L    #$40000,$4F2
  357.     LEA    $40518,A0
  358.     MOVE.L    #$840,A1
  359. lbC0005E2    CMP.B    #$23,(A0)
  360.     BNE.S    lbC0005EA
  361.     MOVE.L    A1,A2
  362. lbC0005EA    MOVE.B    (A0)+,(A1)+
  363.     BPL.S    lbC0005E2
  364.     MOVE.B    $446,D0
  365.     ADD.B    #$41,D0
  366.     MOVE.B    D0,(A2)
  367.     PEA    $840
  368.     PEA    $40538
  369.     PEA    $40538
  370.     MOVE.W    #5,-(SP)
  371.     MOVE.W    #$4B,-(SP)
  372.     TRAP    #1
  373.     ADD.W    #14,SP
  374.     MOVE.L    D0,A0
  375.     MOVE.L    $4FE,8(A0)
  376.     PEA    $840
  377.     MOVE.L    A0,-(SP)
  378.     PEA    $40538
  379.     MOVE.W    #4,-(SP)
  380. lbC000636    MOVE.W    #$4B,-(SP)
  381.     TRAP    #1
  382.     ADD.W    #14,SP
  383.     MOVEQ    #3,D7
  384.     JSR    $40BAC
  385.     JMP    $700BA
  386.  
  387. lbC00064E    MOVE.W    D0,_custom+color0
  388.     MOVE.W    D0,_custom+color1
  389.     MOVE.W    D0,_custom+color2
  390.     MOVE.W    D0,_custom+color3
  391.     RTS
  392.  
  393. lbC000668    MOVE.W    $1E(A0),D0
  394.     BTST    #5,D0
  395.     BEQ.S    lbC000668
  396.     MOVE.W    D0,$9C(A0)
  397.     RTS
  398.  
  399. lbC000678    BTST    #6,$BFE001
  400.     BNE.S    lbC000678
  401. lbC000682    BTST    #6,$BFE001
  402.     BEQ.S    lbC000682
  403.     RTS
  404.  
  405. lbC00068E    LEA    _custom,A0
  406.     MOVE.W    #$4200,bplcon0(A0)
  407.     MOVE.W    #0,bplcon1(A0)
  408.     MOVE.W    #0,bpl1mod(A0)
  409.     MOVE.W    #0,bpl2mod(A0)
  410.     MOVE.W    #$38,ddfstrt(A0)
  411.     MOVE.W    #$D0,ddfstop(A0)
  412.     MOVE.W    #$2C81,diwstrt(A0)
  413.     MOVE.W    #$F4C1,diwstop(A0)
  414.     MOVE.W    #$222,color1(A0)
  415.     LEA    $706E0,A1
  416.     LEA    $3FFB0,A2
  417.     MOVEQ    #$11,D0
  418. lbC0006D8    MOVE.W    (A1)+,(A2)+
  419.     DBRA    D0,lbC0006D8
  420.  
  421.     JMP    (A6)
  422.  
  423.     dc.l    $E00003
  424.     dc.l    $E20000
  425.     dc.l    $E40003
  426.     dc.l    $E62000
  427.     dc.l    $E80003
  428.     dc.l    $EA4000
  429.     dc.l    $EC0003
  430.     dc.l    $EE6000
  431.     dc.l    $FFFFFFFE
  432.  
  433. lbC000704    LEA    _custom,A0
  434.     MOVE.W    #$A200,bplcon0(A0)
  435.     MOVE.W    #0,bplcon1(A0)
  436.     MOVE.W    #0,bpl1mod(A0)
  437.     MOVE.W    #0,bpl2mod(A0)
  438.     MOVE.W    #$3C,ddfstrt(A0)
  439.     MOVE.W    #$D4,ddfstop(A0)
  440.     MOVE.W    #$2C81,diwstrt(A0)
  441.     MOVE.W    #$F4C1,diwstop(A0)
  442.     MOVE.W    #$222,color1(A0)
  443.     LEA    $70756,A1
  444.     LEA    $3FFB0,A2
  445.     MOVEQ    #9,D0
  446. lbC00074E    MOVE.W    (A1)+,(A2)+
  447.     DBRA    D0,lbC00074E
  448.  
  449.     JMP    (A6)
  450.  
  451.     dc.l    $E00003
  452.     dc.l    $E20000
  453.     dc.l    $E40003
  454.     dc.l    $E64000
  455.     dc.l    $FFFFFFFE
  456.  
  457. lbC00076A    LEA    _custom,A0
  458.     MOVE.W    #$A204,bplcon0(A0)
  459.     MOVE.W    #0,bplcon1(A0)
  460.     MOVE.W    #$50,bpl1mod(A0)
  461.     MOVE.W    #$50,bpl2mod(A0)
  462.     MOVE.W    #$3C,ddfstrt(A0)
  463.     MOVE.W    #$D4,ddfstop(A0)
  464.     MOVE.W    #$3C81,diwstrt(A0)
  465.     MOVE.W    #$4C1,diwstop(A0)
  466.     MOVE.W    #0,color0(A0)
  467.     MOVE.W    #0,color1(A0)
  468.     MOVE.W    #foreground,color2(A0)
  469.     MOVE.W    #0,color3(A0)
  470.     LEA    $707E2,A1
  471.     LEA    $3FFB0,A2
  472.     MOVEQ    #13,D0
  473. lbC0007C6    MOVE.W    (A1)+,(A2)+
  474.     DBRA    D0,lbC0007C6
  475.  
  476.     LEA    $707FE,A1
  477.     LEA    $3FFD0,A2
  478.     MOVEQ    #13,D0
  479. lbC0007DA    MOVE.W    (A1)+,(A2)+
  480.     DBRA    D0,lbC0007DA
  481.  
  482.     JMP    (A6)
  483.  
  484.     dc.l    $E00003
  485.     dc.l    $E20000
  486.     dc.l    $E40002
  487.     dc.l    $E68000
  488.     dc.l    $800003
  489.     dc.l    $82FFD0
  490.     dc.l    $FFFFFFFE
  491.     dc.l    $E00003
  492.     dc.l    $E20050
  493.     dc.l    $E40002
  494.     dc.l    $E68050
  495.     dc.l    $800003
  496.     dc.l    $82FFB0
  497.     dc.l    $FFFFFFFE
  498.  
  499.     MOVE.W    #$20,_custom+intreq
  500.     CMP.B    #7,$3FF3A
  501.     BNE    lbC000834
  502.     JMP    $700BA
  503.  
  504. lbC000834    CMP.B    #11,$3FF3A
  505.     BNE    lbC000854
  506.     MOVE.B    #1,$78260
  507.     MOVE.B    #$80,$7FA01
  508.     BRA    lbC000870
  509.  
  510. lbC000854    CMP.B    #$13,$3FF3A
  511.     BNE    lbC000876
  512.     MOVE.B    #2,$78260
  513.     MOVE.B    #0,$7FA01
  514. lbC000870    JMP    $700BA
  515.  
  516. lbC000876    MOVEM.L    D0/D7/A0-A4,-(SP)
  517.     BSR    lbC001E32
  518.     BCHG    #1,$BFE001
  519.     TST.W    $3FF1E
  520.     BNE    lbC000918
  521.     SUBQ.W    #1,$3FF08
  522.     BPL.S    lbC0008F2
  523.     MOVE.W    #2,$3FF08
  524.     CMP.B    #2,$78260
  525.     BEQ    lbC0008C4
  526.     MOVE.L    #$78240,A0
  527.     MOVE.L    #_custom+color0,A1
  528.     MOVEQ    #15,D7
  529. lbC0008BA    MOVE.W    (A0)+,D0
  530.     LSL.W    #1,D0
  531.     MOVE.W    D0,(A1)+
  532.     DBRA    D7,lbC0008BA
  533.  
  534. lbC0008C4    MOVEQ    #0,D0
  535.     MOVE.B    $78201,D0
  536.     SWAP    D0
  537.     MOVE.B    $78203,D0
  538.     LSL.W    #8,D0
  539.     MOVE.L    D0,A0
  540.     LEA    $30000,A1
  541.     CMP.B    #1,$78260
  542.     BLT    Lores
  543.     BGT    Hires
  544.     BRA    Meres
  545.  
  546. lbC0008F2    TST.W    $3FF20
  547.     BEQ.S    lbC00090A
  548.     SUBQ.W    #1,$3FF20
  549.     BNE.S    lbC000918
  550.     BSR    lbC001464
  551.     BRA    lbC000918
  552.  
  553. lbC00090A    TST.W    $3FF1E
  554.     BNE    lbC000918
  555.     BSR    lbC000C1A
  556. lbC000918    TST.B    $3FF38
  557.     BEQ    lbC000928
  558.     SUBQ.B    #1,$3FF38
  559. lbC000928    BSR    lbC000D60
  560.     TST.B    $2847
  561.     BNE.S    lbC000940
  562.     TST.W    $3FF0A
  563.     BEQ.S    lbC000940
  564.     BSR    lbC000A5C
  565. lbC000940    MOVEM.L    (SP)+,D0/D7/A0-A4
  566.     ADDQ.L    #4,$4BA
  567.     JSR    $4312C
  568.     MOVE.L    $70.w,-(SP)
  569.     RTS
  570.  
  571. Lores    LEA    $2000(A1),A2
  572.     LEA    $2000(A2),A3
  573.     LEA    $2000(A3),A4
  574.     MOVE.W    #$3E7,D7
  575. 1$    MOVE.W    (A0)+,(A1)+
  576.     MOVE.W    (A0)+,(A2)+
  577.     MOVE.W    (A0)+,(A3)+
  578.     MOVE.W    (A0)+,(A4)+
  579.     MOVE.W    (A0)+,(A1)+
  580.     MOVE.W    (A0)+,(A2)+
  581.     MOVE.W    (A0)+,(A3)+
  582.     MOVE.W    (A0)+,(A4)+
  583.     MOVE.W    (A0)+,(A1)+
  584.     MOVE.W    (A0)+,(A2)+
  585.     MOVE.W    (A0)+,(A3)+
  586.     MOVE.W    (A0)+,(A4)+
  587.     MOVE.W    (A0)+,(A1)+
  588.     MOVE.W    (A0)+,(A2)+
  589.     MOVE.W    (A0)+,(A3)+
  590.     MOVE.W    (A0)+,(A4)+
  591.     DBRA    D7,1$
  592.  
  593.     BRA    lbC0008F2
  594.  
  595. Meres    LEA    $4000(A1),A2
  596.     MOVE.W    #$3E7,D7
  597. 1$    MOVE.W    (A0)+,(A1)+
  598.     MOVE.W    (A0)+,(A2)+
  599.     MOVE.W    (A0)+,(A1)+
  600.     MOVE.W    (A0)+,(A2)+
  601.     MOVE.W    (A0)+,(A1)+
  602.     MOVE.W    (A0)+,(A2)+
  603.     MOVE.W    (A0)+,(A1)+
  604.     MOVE.W    (A0)+,(A2)+
  605.     MOVE.W    (A0)+,(A1)+
  606.     MOVE.W    (A0)+,(A2)+
  607.     MOVE.W    (A0)+,(A1)+
  608.     MOVE.W    (A0)+,(A2)+
  609.     MOVE.W    (A0)+,(A1)+
  610.     MOVE.W    (A0)+,(A2)+
  611.     MOVE.W    (A0)+,(A1)+
  612.     MOVE.W    (A0)+,(A2)+
  613.     DBRA    D7,1$
  614.  
  615.     BRA    lbC0008F2
  616.  
  617. Hires    CMP.L    #$40000,D0
  618.     BLE    lbC0009E4
  619.     MOVE.W    #$3E7,D7
  620. 1$    MOVE.L    (A0)+,(A1)+
  621.     MOVE.L    (A0)+,(A1)+
  622.     MOVE.L    (A0)+,(A1)+
  623.     MOVE.L    (A0)+,(A1)+
  624.     MOVE.L    (A0)+,(A1)+
  625.     MOVE.L    (A0)+,(A1)+
  626.     MOVE.L    (A0)+,(A1)+
  627.     MOVE.L    (A0)+,(A1)+
  628.     DBRA    D7,1$
  629.  
  630.     BRA    lbC0008F2
  631.  
  632. lbC0009E4    MOVE.B    $78201,D0
  633.     MOVE.B    D0,$3FFB3
  634.     MOVE.B    D0,$3FFD3
  635.     MOVE.B    $78203,D0
  636.     MOVE.B    D0,$3FFB6
  637.     MOVE.B    D0,$3FFD6
  638.     BRA    lbC0008F2
  639.  
  640. lbC000A0C    LEA    $28000,A0
  641.     EOR.B    #$E0,0(A0)
  642.     EOR.B    #$80,$50(A0)
  643.     EOR.B    #$80,$A0(A0)
  644.     EOR.B    #7,$4F(A0)
  645.     EOR.B    #1,$9F(A0)
  646.     EOR.B    #1,$EF(A0)
  647.     EOR.B    #$80,$7C10(A0)
  648.     EOR.B    #$80,$7C60(A0)
  649.     EOR.B    #$E0,$7CB0(A0)
  650.     EOR.B    #1,$7C5F(A0)
  651.     EOR.B    #1,$7CAF(A0)
  652.     EOR.B    #7,$7CFF(A0)
  653.     RTS
  654.  
  655. lbC000A5C    MOVEM.L    D1/D2/A0/A1/A5,-(SP)
  656.     SUB.L    A5,A5
  657.     LEA    $3FFF0,A0
  658.     CLR.W    D0
  659.     MOVE.W    #$FF00,_custom+potgo
  660.     BTST    #6,$BFE001
  661.     BNE.S    lbC000A80
  662.     BSET    #1,D0
  663. lbC000A80    BTST    #2,_custom+potinp
  664.     BNE.S    lbC000A8E
  665.     BSET    #0,D0
  666. lbC000A8E    OR.B    #$F8,D0
  667.     MOVE.B    D0,(A0)
  668.     MOVE.W    _custom+joy0dat,D2
  669.     MOVE.L    $3FF12,$3FF0E
  670.     MOVE.B    D2,D1
  671.     MOVE.W    D1,$3FF12
  672.     SUB.W    $3FF0E,D1
  673.     LSR.W    #8,D2
  674.     MOVE.W    D2,$3FF14
  675.     SUB.W    $3FF10,D2
  676.     MOVE.B    D1,1(A0)
  677.     MOVE.B    D2,2(A0)
  678.     MOVE.L    $E22,A1
  679.     MOVE.L    A1,D0
  680.     TST.L    D0
  681.     BMI    lbC000AD8
  682.     JSR    (A1)
  683. lbC000AD8    MOVEM.L    (SP)+,D1/D2/A0/A1/A5
  684.     RTS
  685.  
  686.     MOVEM.L    D0-D7/A0-A6,-(SP)
  687.     SUB.L    A5,A5
  688.     MOVE.B    $BFED01,D0
  689.     MOVE.W    #8,_custom+intreq
  690.     MOVE.B    $BFEC01,D0
  691.     BSET    #6,$BFEE01
  692.     MOVE.B    #0,$BFEC01
  693.     BCLR    #6,$BFEE01
  694.     NOT.B    D0
  695.     ROR.B    #1,D0
  696.     MOVE.B    D0,D1
  697.     BSR    lbC000B70
  698.     AND.W    #$7F,D1
  699.     CMP.B    #$62,D1
  700.     BEQ.S    lbC000B46
  701.     LEA    e.MSG(PC),A0
  702.     MOVE.B    0(A0,D1.W),D3
  703.     AND.B    #$80,D0
  704.     OR.B    D3,D0
  705.     CLR.W    D1
  706.     LEA    $C76,A0
  707.     JSR    $42B5C
  708.     MOVEM.L    (SP)+,D0-D7/A0-A6
  709.     RTE
  710.  
  711. lbC000B46    CLR.W    D1
  712.     MOVE.B    #$3A,D0
  713.     LEA    $C76,A0
  714.     JSR    $42B5C
  715.     CLR.W    D1
  716.     MOVE.B    #$BA,D0
  717.     LEA    $C76,A0
  718.     JSR    $42B5C
  719.     MOVEM.L    (SP)+,D0-D7/A0-A6
  720.     RTE
  721.  
  722. lbC000B70    MOVEM.L    D0-D3/A0,-(SP)
  723.     MOVE.B    $3FF3A,D3
  724.     LEA    cdeON.MSG(PC),A0
  725.     MOVEQ    #0,D0
  726. lbC000B80    MOVE.B    (A0)+,D2
  727.     CMP.B    D1,D2
  728.     BNE.S    lbC000B8A
  729.     BSET    D0,D3
  730.     BRA.S    lbC000B94
  731.  
  732. lbC000B8A    OR.B    #$80,D2
  733.     CMP.B    D1,D2
  734.     BNE.S    lbC000B94
  735.     BCLR    D0,D3
  736. lbC000B94    ADDQ.B    #1,D0
  737.     CMP.B    #5,D0
  738.     BNE    lbC000B80
  739.     MOVE.B    D3,$3FF3A
  740.     MOVEM.L    (SP)+,D0-D3/A0
  741.     RTS
  742.  
  743. cdeON.MSG    dc.b    'cdeON',0
  744. e.MSG    dc.b    13
  745.     dc.b    2
  746.     dc.b    3
  747.     dc.b    4
  748.     dc.b    5
  749.     dc.b    6
  750.     dc.b    7
  751.     dc.b    8
  752.     dc.b    9
  753.     dc.b    10
  754.     dc.b    11
  755.     dc.b    12
  756.     dc.b    13
  757.     dc.b    'e',0
  758.     dc.b    'p'
  759.     dc.b    $10
  760.     dc.b    $11
  761.     dc.b    $12
  762.     dc.b    $13
  763.     dc.b    $14
  764.     dc.b    $15
  765.     dc.b    $16
  766.     dc.b    $17
  767.     dc.b    $18
  768.     dc.b    $19
  769.     dc.b    $1A
  770.     dc.b    $1B
  771.     dc.b    0
  772.     dc.b    'mno'
  773.     dc.b    $1E
  774.     dc.b    $1F
  775.     dc.b    ' !"#$%&''()',0
  776.     dc.b    'jkl`,'
  777.     dc.b    '-./012345',0
  778.     dc.b    'qghi9'
  779.     dc.b    14
  780.     dc.b    15
  781.     dc.b    'r'
  782.     dc.b    $1C
  783.     dc.b    1
  784.     dc.b    'S',0,0
  785.     dc.b    0
  786.     dc.b    'J',0
  787.     dc.b    'HPMK;<=>?@ABCD',0,0
  788.     dcb.b    2,0
  789.     dc.b    0
  790.     dc.b    'b*6:'
  791.     dc.b    $1D
  792.     dc.b    '8aRG',0,0
  793.  
  794. lbC000C1A    MOVEM.L    D0/D1,-(SP)
  795.     TST.B    $3FF39
  796.     BNE    lbC000C5C
  797.     MOVE.B    #1,$3FF38
  798.     MOVE.B    #$28,$3FF39
  799.     MOVEQ    #0,D0
  800.     MOVE.B    $3FF3B,D0
  801.     BSR    lbC000C68
  802.     MOVEQ    #2,D1
  803.     ADDQ.B    #1,$3FF3B
  804. lbC000C4C    ADDQ.B    #1,D0
  805.     CMP.B    D1,D0
  806.     BNE    lbC000C5C
  807.     MOVE.B    #0,$3FF3B
  808. lbC000C5C    SUBQ.B    #1,$3FF39
  809.     MOVEM.L    (SP)+,D0/D1
  810.     RTS
  811.  
  812. lbC000C68    MOVEM.L    D0-D7/A0-A2,-(SP)
  813.     LEA    $3FF34,A0
  814.     LEA    $3FF40,A1
  815.     LEA    $3FF3C,A2
  816.     BSR    lbC000D2A
  817.     TST.B    0(A0,D0.W)
  818.     BNE    lbC000C8E
  819.     CLR.B    0(A1,D0.W)
  820. lbC000C8E    TST.B    0(A1,D0.W)
  821.     BEQ    lbC000CA2
  822.     BSET    #1,$BFD100
  823.     BRA    lbC000CAA
  824.  
  825. lbC000CA2    BCLR    #1,$BFD100
  826. lbC000CAA    MOVE.B    0(A2,D0.W),D1
  827.     CMP.B    #$FF,D1
  828.     BNE    lbC000CEA
  829.     BCLR    #0,$BFD100
  830.     NOP
  831.     NOP
  832.     NOP
  833.     BSET    #0,$BFD100
  834.     TST.B    0(A1,D0.W)
  835.     BEQ    lbC000CE0
  836.     SUBQ.B    #1,0(A0,D0.W)
  837.     CLR.B    0(A1,D0.W)
  838.     BRA    lbC000CEA
  839.  
  840. lbC000CE0    ADDQ.B    #1,0(A0,D0.W)
  841.     MOVE.B    #1,0(A1,D0.W)
  842. lbC000CEA    BTST    #2,$BFE001
  843.     BEQ.S    lbC000D06
  844.     CMP.B    #$FF,D1
  845.     BNE    lbC000D20
  846.     MOVE.B    #2,0(A2,D0.W)
  847.     BRA    lbC000D20
  848.  
  849. lbC000D06    MOVE.B    #$FF,0(A2,D0.W)
  850.     MOVE.W    $73FF0,D1
  851.     CMP.W    D0,D1
  852.     BNE    lbC000D20
  853.     MOVE.W    #$FFFF,$73FF0
  854. lbC000D20    BSR    lbC000D42
  855.     MOVEM.L    (SP)+,D0-D7/A0-A2
  856.     RTS
  857.  
  858. lbC000D2A    MOVE.L    D0,D6
  859.     ADDQ.L    #3,D6
  860.     MOVE.B    #$7D,$BFD100
  861.     NOP
  862.     NOP
  863.     BCLR    D6,$BFD100
  864.     RTS
  865.  
  866. lbC000D42    MOVE.L    D0,D6
  867.     ADDQ.L    #3,D6
  868.     MOVE.B    #$FD,$BFD100
  869.     NOP
  870.     NOP
  871.     BCLR    D6,$BFD100
  872.     BSET    D6,$BFD100
  873.     RTS
  874.  
  875. lbC000D60    RTS
  876.  
  877.     LEA    $70DEC,A0
  878.     BRA.S    lbC000D70
  879.  
  880.     LEA    $70DBA,A0
  881. lbC000D70    MOVE.L    $4A2,A1
  882.     MOVE.W    (SP)+,D0
  883.     MOVE.W    D0,-(A1)
  884.     MOVE.L    (SP)+,-(A1)
  885.     MOVEM.L    D3-D7/A3-A7,-(A1)
  886.     MOVE.L    A1,$4A2
  887.     BTST    #13,D0
  888.     BNE.S    lbC000D8E
  889.     MOVE    USP,SP
  890. lbC000D8E    MOVE.W    (SP)+,D0
  891.     CMP.W    (A0)+,D0
  892.     BGE.S    lbC000DA4
  893.     LSL.W    #2,D0
  894.     MOVE.L    0(A0,D0.W),D0
  895.     MOVE.L    D0,A0
  896.     BPL.S    lbC000DA0
  897.     MOVE.L    (A0),A0
  898. lbC000DA0    SUB.L    A5,A5
  899.     JSR    (A0)
  900. lbC000DA4    MOVE.L    $4A2,A1
  901.     MOVEM.L    (A1)+,D3-D7/A3-A7
  902.     MOVE.L    (A1)+,-(SP)
  903.     MOVE.W    (A1)+,-(SP)
  904.     MOVE.L    A1,$4A2
  905.     RTE
  906.  
  907. BIOS    dc.w    12
  908.     dc.l    $40A46
  909.     dc.l    $70F32
  910.     dc.l    $70F4E
  911.     dc.l    $70F62
  912.     dc.l    $80000476
  913.     dc.l    $40A72
  914.     dc.l    $40A8A
  915.     dc.l    $80000472
  916.     dc.l    $70FAC
  917.     dc.l    $8000047E
  918.     dc.l    $40A2E
  919.     dc.l    $40A34
  920. XBIOS    dc.w    $41
  921.     dc.l    $70FD4
  922.     dc.l    $40670
  923.     dc.l    $40A92
  924.     dc.l    $40AA6
  925.     dc.l    $7102A
  926.     dc.l    $70FE8
  927.     dc.l    $40B06
  928.     dc.l    $40B0E
  929.     dc.l    $71034
  930.     dc.l    $7107A
  931.     dc.l    $710C0
  932.     dc.l    $40FC0
  933.     dcb.l    2,$71112
  934.     dc.l    $428F6
  935.     dc.l    $71112
  936.     dc.l    $43088
  937.     dc.l    $41510
  938.     dc.l    $415F8
  939.     dc.l    $41AE2
  940.     dc.l    $40D50
  941.     dc.l    $446F2
  942.     dc.l    $71F9E
  943.     dc.l    $71EF2
  944.     dc.l    $430B4
  945.     dcb.l    3,$71112
  946.     dc.l    $70EF2
  947.     dc.l    $70F26
  948.     dc.l    $70F2A
  949.     dc.l    $71112
  950.     dc.l    $70F2E
  951.     dc.l    $430E2
  952.     dc.l    $43116
  953.     dc.l    $430F4
  954.     dc.l    $43254
  955.     dc.l    $407D0
  956.     dc.l    $4097E
  957.     dc.l    $40B34
  958.     dc.l    $71112
  959.     dcb.l    $17,$40670
  960.     dc.l    $40EF6
  961.  
  962. OFFGIBIT    MOVE.W    #$F0,_custom+color0
  963.     MOVEQ    #0,D0
  964.     MOVEQ    #0,D1
  965.     LEA    $73000,A0
  966.     MOVE.B    4(SP),D0
  967.     MOVE.W    6(SP),D1
  968.     BTST    #7,D1
  969.     BEQ    lbC000F20
  970.     AND.B    #15,D0
  971.     MOVE.B    D0,0(A0,D1.W)
  972.     CLR.B    D0
  973.     RTS
  974.  
  975. lbC000F20    MOVE.B    0(A0,D1.W),D0
  976.     RTS
  977.  
  978. ONGIBIT    MOVEQ    #0,D0
  979.     RTS
  980.  
  981. XBTIMER    MOVEQ    #0,D0
  982.     RTS
  983.  
  984. SETPRT    MOVEQ    #0,D0
  985.     RTS
  986.  
  987. BCONSTAT    MOVE    #$2100,SR
  988.     CMP.W    #0,4(SP)
  989.     BEQ.S    lbC000F48
  990.     CMP.W    #2,4(SP)
  991.     BNE    DUMMY
  992. lbC000F48    JMP    $40984
  993.  
  994. BCONIN    CMP.W    #2,4(SP)
  995.     BNE    DUMMY
  996.     MOVE    #$2100,SR
  997.     JMP    $4098C
  998.  
  999. BCONOUT    CMP.W    #0,4(SP)
  1000.     BEQ.S    lbC000F82
  1001.     CMP.W    #2,4(SP)
  1002.     BEQ.S    lbC000F7C
  1003.     CMP.W    #5,4(SP)
  1004.     BNE    DUMMY
  1005. lbC000F7C    JMP    $4099C
  1006.  
  1007. lbC000F82    BTST    #2,$BFD000
  1008.     BEQ    DUMMY
  1009. lbC000F8E    BTST    #0,$BFD000
  1010.     BNE.S    lbC000F8E
  1011.     MOVE.B    #$FF,$BFE301
  1012.     MOVE.B    7(SP),$BFE101
  1013.     MOVEQ    #1,D0
  1014.     RTS
  1015.  
  1016. BCOSTAT    CMP.W    #0,4(SP)
  1017.     BEQ.S    lbC000FC4
  1018.     CMP.W    #2,4(SP)
  1019.     BNE    DUMMY
  1020.     JMP    $40994
  1021.  
  1022. lbC000FC4    BTST    #0,$BFD000
  1023.     BNE    DUMMY
  1024.     MOVEQ    #-$1,D0
  1025.     RTS
  1026.  
  1027. INITMOUS    MOVE.L    10(SP),$E22
  1028.     MOVE.W    #1,$3FF0A
  1029.     MOVEQ    #-$1,D0
  1030.     RTS
  1031.  
  1032. SETSCREEN    TST.L    4(SP)
  1033.     BMI.S    lbC000FF4
  1034.     MOVE.L    4(SP),$44E(A5)
  1035. lbC000FF4    TST.L    8(SP)
  1036.     BMI.S    lbC00100A
  1037.     MOVE.B    9(SP),$78201
  1038.     MOVE.B    10(SP),$78203
  1039. lbC00100A    TST.W    12(SP)
  1040.     BMI.S    lbC001028
  1041.     MOVE.B    13(SP),D0
  1042.     CMP.B    $44C(A5),D0
  1043.     BEQ.S    lbC001028
  1044.     MOVE.B    D0,$44C(A5)
  1045.     MOVE.B    D0,$78260
  1046.     BRA    lbC0000BA
  1047.  
  1048. lbC001028    RTS
  1049.  
  1050. GETREZ    MOVEQ    #0,D0
  1051.     MOVE.B    $44C,D0
  1052.     RTS
  1053.  
  1054. FLOPRD    MOVE.W    12(SP),$3FF22
  1055.     BSR    lbC00136E
  1056.     TST.L    D0
  1057.     BNE    lbC001072
  1058.     MOVE.W    $12(SP),$3FF24
  1059.     MOVE.W    $10(SP),$3FF26
  1060.     MOVE.W    14(SP),$3FF28
  1061.     MOVE.W    $14(SP),$3FF2A
  1062.     MOVE.L    4(SP),$3FF2C
  1063.     BSR    lbC0014F2
  1064. lbC001072    BSR    lbC001422
  1065.     TST.L    D0
  1066.     RTS
  1067.  
  1068. FLOPWR    MOVE.W    12(SP),$3FF22
  1069.     BSR    lbC00136E
  1070.     TST.L    D0
  1071.     BNE    lbC0010B8
  1072.     MOVE.W    $12(SP),$3FF24
  1073.     MOVE.W    $10(SP),$3FF26
  1074.     MOVE.W    14(SP),$3FF28
  1075.     MOVE.W    $14(SP),$3FF2A
  1076.     MOVE.L    4(SP),$3FF2C
  1077.     BSR    lbC0016F0
  1078. lbC0010B8    BSR    lbC001422
  1079.     TST.L    D0
  1080.     RTS
  1081.  
  1082. FLOPFMT    CMP.L    #$87654321,$16(SP)
  1083.     BNE    DUMMY
  1084.     MOVE.W    12(SP),$3FF22
  1085.     BSR    lbC00136E
  1086.     TST.L    D0
  1087.     BNE    lbC00110A
  1088.     MOVE.W    $12(SP),$3FF24
  1089.     MOVE.W    $10(SP),$3FF26
  1090.     MOVE.W    14(SP),$3FF32
  1091.     MOVE.L    4(SP),$3FF2C
  1092.     MOVE.W    $1A(SP),$3FF30
  1093.     BSR    lbC001A68
  1094. lbC00110A    BSR    lbC001422
  1095.     TST.L    D0
  1096.     RTS
  1097.  
  1098. DUMMY    CLR.L    D0
  1099.     RTS
  1100.  
  1101.     MOVEQ    #-$2,D0
  1102.     TST.L    D0
  1103.     RTS
  1104.  
  1105.     MOVE.W    #2,$4A6
  1106.     MOVE.L    #3,$4C2
  1107.     MOVEQ    #1,D0
  1108. lbC001130    MOVE.W    D0,$3FF22
  1109.     MOVE.L    D0,-(SP)
  1110.     BSR    lbC00135E
  1111.     MOVE.L    (SP)+,D0
  1112.     TST.L    D6
  1113.     BPL    lbC001150
  1114.     SUBQ.W    #1,$4A6
  1115.     BCLR    D0,$4C5
  1116. lbC001150    DBRA    D0,lbC001130
  1117.  
  1118.     BSR    BIOSKEYS
  1119.     SWAP    D0
  1120.     MOVE.W    D0,-(SP)
  1121.     MOVE.W    #$2B,-(SP)
  1122.     TRAP    #1
  1123.     ADDQ.L    #4,SP
  1124.     BSR    BIOSKEYS
  1125.     MOVE.W    D0,-(SP)
  1126.     MOVE.W    #$2D,-(SP)
  1127.     TRAP    #1
  1128.     ADDQ.L    #4,SP
  1129.     RTS
  1130.  
  1131.     TST.L    6(SP)
  1132.     BEQ    lbC001276
  1133.     MOVE.L    6(SP),A0
  1134.     MOVE.W    14(SP),$3FF22
  1135.     BSR    lbC00136E
  1136.     TST.L    D0
  1137.     BNE    lbC00128C
  1138.     MOVE.W    12(SP),D6
  1139.     MOVE.W    10(SP),D7
  1140.     MOVE.L    #$7590,A1
  1141.     CMP.W    #1,$3FF22
  1142.     BEQ.S    lbC0011B0
  1143.     MOVE.L    #$7570,A1
  1144. lbC0011B0    CLR.W    $3FF24
  1145.     MOVE.W    D6,D0
  1146.     EXT.L    D0
  1147.     DIVU    $16(A1),D0
  1148.     MOVE.W    D0,$3FF26
  1149.     SWAP    D0
  1150.     CMP.W    $18(A1),D0
  1151.     BLT.S    lbC0011D8
  1152.     MOVE.W    #1,$3FF24
  1153.     SUB.W    $18(A1),D0
  1154. lbC0011D8    MOVE.W    D0,D1
  1155.     ADDQ.W    #1,D1
  1156.     MOVE.W    D1,$3FF28
  1157.     MOVE.W    D0,D1
  1158.     ADD.W    D7,D1
  1159.     CMP.W    $18(A1),D1
  1160.     BLE.S    lbC0011F0
  1161.     MOVE.W    $18(A1),D1
  1162. lbC0011F0    SUB.W    D0,D1
  1163.     MOVE.W    D1,$3FF2A
  1164.     MOVE.L    A0,$3FF2C
  1165.     MOVE.W    4(SP),D0
  1166.     CMP.W    #0,D0
  1167.     BEQ.S    lbC001240
  1168.     CMP.W    #1,D0
  1169.     BEQ    lbC001226
  1170.     CMP.W    #2,D0
  1171.     BEQ    lbC00124C
  1172.     CMP.W    #3,D0
  1173.     BEQ    lbC001232
  1174.     MOVEQ    #-$5,D0
  1175.     BRA    lbC00128C
  1176.  
  1177. lbC001226    MOVEM.L    D6/D7/A1,-(SP)
  1178.     BSR    lbC0016F0
  1179.     BRA    lbC001256
  1180.  
  1181. lbC001232    MOVEM.L    D6/D7/A1,-(SP)
  1182.     BSR    lbC0016F0
  1183.     CLR.L    D0
  1184.     BRA    lbC001256
  1185.  
  1186. lbC001240    MOVEM.L    D6/D7/A1,-(SP)
  1187.     BSR    lbC0014F2
  1188.     BRA    lbC001256
  1189.  
  1190. lbC00124C    MOVEM.L    D6/D7/A1,-(SP)
  1191.     BSR    lbC0014F2
  1192.     CLR.L    D0
  1193. lbC001256    MOVEM.L    (SP)+,D6/D7/A1
  1194.     TST.L    D0
  1195.     BNE.S    lbC00128C
  1196.     ADD.W    $3FF2A,D6
  1197.     SUB.W    $3FF2A,D7
  1198.     BNE    lbC0011B0
  1199.     BSR    lbC001422
  1200.     CLR.L    D0
  1201.     RTS
  1202.  
  1203. lbC001276    MOVE.W    14(SP),D0
  1204.     MOVE.W    10(SP),D1
  1205.     LEA    $3FF3C,A0
  1206.     MOVE.B    D1,0(A0,D0.W)
  1207.     CLR.L    D0
  1208.     RTS
  1209.  
  1210. lbC00128C    BSR    lbC001422
  1211.     TST.L    D0
  1212.     RTS
  1213.  
  1214. lbC001294    TST.B    $3FF38
  1215.     BNE    lbC001294
  1216.     LEA    $3FF3C,A0
  1217.     MOVE.W    4(SP),D0
  1218.     MOVEQ    #0,D1
  1219.     MOVE.B    0(A0,D0.W),D1
  1220.     TST.B    D1
  1221.     BMI    lbC0012BC
  1222.     CLR.B    0(A0,D0.W)
  1223.     MOVE.L    D1,D0
  1224.     RTS
  1225.  
  1226. lbC0012BC    MOVEQ    #0,D0
  1227.     RTS
  1228.  
  1229.     LINK    A6,#0
  1230.     MOVEM.L    D6/D7,-(SP)
  1231.     JSR    $7111C
  1232.     TST.W    $4A6
  1233.     BEQ.S    lbC0012DA
  1234.     MOVEQ    #1,D0
  1235.     BRA.S    lbC0012DC
  1236.  
  1237. lbC0012DA    MOVEQ    #2,D0
  1238. lbC0012DC    MOVE.W    D0,D7
  1239.     TST.W    $4A6
  1240.     BEQ.S    lbC00132A
  1241.     CMP.W    #2,$446
  1242.     BGE.S    lbC00132A
  1243.     MOVE.W    #1,(SP)
  1244.     CLR.W    -(SP)
  1245.     CLR.W    -(SP)
  1246.     MOVE.W    #1,-(SP)
  1247.     MOVE.W    $446,-(SP)
  1248.     CLR.L    -(SP)
  1249.     MOVE.L    #$16DA,-(SP)
  1250.     JSR    $71034
  1251.     ADD.L    #$10,SP
  1252.     TST.L    D0
  1253.     BNE.S    lbC00131E
  1254.     CLR.W    D7
  1255.     BRA.S    lbC00132A
  1256.  
  1257. lbC00131E    TST.B    $9F8
  1258.     BNE.S    lbC00132A
  1259.     MOVEQ    #3,D0
  1260.     BRA.S    lbC001350
  1261.  
  1262. lbC00132A    TST.W    D7
  1263.     BEQ.S    lbC001332
  1264.     MOVE.W    D7,D0
  1265.     BRA.S    lbC001350
  1266.  
  1267. lbC001332    MOVE.W    #$100,(SP)
  1268.     MOVE.L    #$16DA,-(SP)
  1269.     JSR    $416E4
  1270.     ADDQ.L    #4,SP
  1271.     CMP.W    #$1234,D0
  1272.     BNE.S    lbC00134E
  1273.     CLR.W    D0
  1274.     BRA.S    lbC001350
  1275.  
  1276. lbC00134E    MOVEQ    #4,D0
  1277. lbC001350    TST.L    (SP)+
  1278.     MOVE.L    (SP)+,D7
  1279.     UNLK    A6
  1280.     RTS
  1281.  
  1282. lbC001358    DBRA    D0,lbC001358
  1283.  
  1284.     RTS
  1285.  
  1286. lbC00135E    BSR    lbC00136E
  1287.     MOVE.L    #$5A,D6
  1288.     BSR    lbC0014A0
  1289.     RTS
  1290.  
  1291. lbC00136E    TST.B    $3FF38
  1292.     BNE    lbC00136E
  1293.     MOVE.W    #1,$3FF1E
  1294.     MOVE.W    $3FF1C,D0
  1295.     CMP.W    $3FF22,D0
  1296.     BEQ.S    lbC0013A2
  1297.     BSR    lbC001464
  1298.     CLR.W    $3FF20
  1299.     MOVE.W    $3FF22,$3FF1C
  1300. lbC0013A2    MOVE.W    $3FF1C,D0
  1301.     TST.W    $3FF20
  1302.     BNE.S    lbC001416
  1303.     BSR    lbC00142A
  1304.     BCLR    #1,$BFD100
  1305.     BCLR    #0,$BFD100
  1306.     NOP
  1307.     NOP
  1308.     NOP
  1309.     NOP
  1310.     BSET    #0,$BFD100
  1311.     MOVE.L    D7,-(SP)
  1312.     MOVE.L    #$A88,D7
  1313.     BSR    lbC001CC0
  1314.     MOVE.L    (SP)+,D7
  1315.     MOVE.L    A0,-(SP)
  1316.     MOVE.W    $3FF22,D0
  1317.     LEA    $3FF34,A0
  1318.     ADDQ.B    #1,0(A0,D0.W)
  1319.     MOVE.L    (SP)+,A0
  1320.     BTST    #2,$BFE001
  1321.     BNE.S    lbC001416
  1322.     CLR.W    $3FF1E
  1323.     MOVE.W    #$64,$3FF20
  1324.     MOVE.L    #$FFFFFFEF,D0
  1325.     RTS
  1326.  
  1327. lbC001416    MOVE.W    #$64,$3FF20
  1328.     MOVEQ    #0,D0
  1329.     RTS
  1330.  
  1331. lbC001422    CLR.W    $3FF1E
  1332.     RTS
  1333.  
  1334. lbC00142A    ADDQ.W    #3,D0
  1335.     MOVE.B    #$FF,$BFD300
  1336.     MOVE.B    #3,$BFE201
  1337.     BSET    D0,$BFD100
  1338.     BSET    #0,$BFD100
  1339.     BCLR    #7,$BFD100
  1340.     BCLR    D0,$BFD100
  1341.     MOVEQ    #5,D7
  1342. lbC00145A    BSR    lbC001C9C
  1343.     DBRA    D7,lbC00145A
  1344.  
  1345.     RTS
  1346.  
  1347. lbC001464    MOVE.W    $3FF1C,D0
  1348.     ADDQ.W    #3,D0
  1349.     MOVE.W    #$4000,_custom+dsklen
  1350.     BSET    D0,$BFD100
  1351.     BSET    #7,$BFD100
  1352.     NOP
  1353.     NOP
  1354.     NOP
  1355.     BCLR    D0,$BFD100
  1356.     NOP
  1357.     NOP
  1358.     NOP
  1359.     NOP
  1360.     NOP
  1361.     BSET    D0,$BFD100
  1362.     RTS
  1363.  
  1364. lbC0014A0    MOVE.B    $BFE001,D0
  1365.     BTST    #4,D0
  1366.     BEQ.S    lbC0014DE
  1367.     BSET    #1,$BFD100
  1368.     BCLR    #0,$BFD100
  1369.     NOP
  1370.     NOP
  1371.     NOP
  1372.     NOP
  1373.     BSET    #0,$BFD100
  1374.     MOVE.L    #$A88,D7
  1375.     BSR    lbC001CC0
  1376.     SUBQ.L    #1,D6
  1377.     BNE.S    lbC0014A0
  1378.     MOVEQ    #-$1,D6
  1379.     RTS
  1380.  
  1381. lbC0014DE    MOVE.W    $3FF22,D1
  1382.     LEA    $3FF34,A0
  1383.     CLR.B    0(A0,D1.W)
  1384.     MOVEQ    #0,D6
  1385. lbC0014F0    RTS
  1386.  
  1387. lbC0014F2    MOVE.W    $3FF22,D0
  1388.     MOVE.W    $73FF0,D1
  1389.     CMP.W    D0,D1
  1390.     BNE    lbC00152C
  1391.     MOVE.W    $3FF24,D0
  1392.     MOVE.W    $73FF2,D1
  1393.     CMP.W    D0,D1
  1394.     BNE    lbC00152C
  1395.     MOVE.W    $3FF26,D0
  1396.     MOVE.W    $73FF4,D1
  1397.     CMP.W    D0,D1
  1398.     BNE    lbC00152C
  1399.     BRA    lbC0015BE
  1400.  
  1401. lbC00152C    BSR    lbC001CCA
  1402.     MOVE.L    #$A88,D7
  1403.     BSR    lbC001CC0
  1404.     BTST    #2,$BFE001
  1405.     BEQ    lbC001A60
  1406.     BSET    #2,$BFD100
  1407.     TST.W    $3FF24
  1408.     BEQ.S    lbC00155E
  1409.     BCLR    #2,$BFD100
  1410. lbC00155E    MOVE.W    #2,_custom+intreq
  1411.     MOVE.L    #$38004,_custom+dskpth
  1412.     MOVE.W    #$4489,_custom+dsksync
  1413.     MOVE.W    #$7F00,_custom+adkcon
  1414.     MOVE.W    #$9500,_custom+adkcon
  1415.     MOVE.W    #$8210,_custom+dmacon
  1416.     BSR    lbC001C9C
  1417.     MOVE.W    #$4000,_custom+dsklen
  1418.     MOVE.W    #$9A00,_custom+dsklen
  1419.     MOVE.W    #$9A00,_custom+dsklen
  1420.     BSR    lbC001D20
  1421.     MOVE.W    #$4000,_custom+dsklen
  1422.     TST.L    D0
  1423.     BEQ.S    lbC0015F2
  1424.     RTS
  1425.  
  1426. lbC0015BE    MOVEQ    #0,D0
  1427.     MOVEQ    #0,D1
  1428.     MOVE.W    $3FF28,D0
  1429.     MOVE.W    $3FF2A,D1
  1430.     MOVE.L    $3FF2C,A0
  1431.     SUBQ.L    #1,D0
  1432.     LSL.L    #8,D0
  1433.     LSL.L    #1,D0
  1434.     LEA    $74000,A1
  1435.     ADD.L    D0,A1
  1436.     LSL.L    #8,D1
  1437.     LSL.L    #1,D1
  1438.     SUBQ.L    #1,D1
  1439. lbC0015E8    MOVE.B    (A1)+,(A0)+
  1440.     DBRA    D1,lbC0015E8
  1441.  
  1442.     CLR.L    D0
  1443.     RTS
  1444.  
  1445. lbC0015F2    LEA    $38004,A1
  1446.     MOVE.L    A1,A0
  1447.     LEA    $7206A,A2
  1448.     LEA    $7216A,A3
  1449.     MOVE.W    #$19FF,D7
  1450.     MOVEQ    #0,D1
  1451. lbC00160C    MOVE.B    (A1)+,D1
  1452.     MOVE.B    0(A2,D1.W),D0
  1453.     MOVE.B    (A1)+,D1
  1454.     OR.B    0(A3,D1.W),D0
  1455.     MOVE.B    D0,(A0)+
  1456.     DBRA    D7,lbC00160C
  1457.  
  1458.     MOVE.W    $3FF28,D0
  1459.     MOVE.W    $3FF2A,D1
  1460.     SUBQ.W    #1,D1
  1461.     MOVE.L    $3FF2C,A0
  1462. lbC001632    LEA    $38004,A1
  1463.     LEA    $39B5C,A2
  1464.     MOVE.B    #$A1,$1B58(A1)
  1465.     MOVE.B    #$A1,$1B59(A1)
  1466.     MOVE.B    #$FE,$1B5A(A1)
  1467. lbC001650    CMP.B    #$A1,(A1)+
  1468.     BNE.S    lbC001650
  1469.     CMP.B    #$FE,(A1)
  1470.     BNE.S    lbC001650
  1471.     CMP.B    3(A1),D0
  1472.     BEQ    lbC001682
  1473.     CMP.B    #1,D0
  1474.     BNE    lbC001676
  1475.     MOVEQ    #12,D7
  1476.     CMP.B    3(A1),D7
  1477.     BEQ    lbC001682
  1478. lbC001676    CMP.L    A2,A1
  1479.     BLT.S    lbC001650
  1480.     MOVE.L    #$FFFFFFF8,D0
  1481.     RTS
  1482.  
  1483. lbC001682    ADD.L    #$20,A1
  1484. lbC001688    CMP.B    #$A1,(A1)+
  1485.     BNE.S    lbC001688
  1486.     CMP.B    #$FB,(A1)
  1487.     BNE.S    lbC001688
  1488.     MOVE.B    #$FB,(A1)
  1489.     MOVE.B    #$A1,-(A1)
  1490.     MOVE.B    #$A1,-(A1)
  1491.     MOVE.B    #$A1,-(A1)
  1492.     ADDQ.L    #4,A1
  1493.     MOVE.W    #$1FF,D7
  1494. lbC0016AA    MOVE.B    (A1)+,(A0)+
  1495.     MOVE.L    A0,$3FF2C
  1496.     DBRA    D7,lbC0016AA
  1497.  
  1498.     MOVE.L    D6,-(SP)
  1499.     MOVEQ    #-$1,D6
  1500.     MOVEQ    #-$1,D7
  1501.     SUB.L    #$204,A1
  1502.     MOVE.L    #$205,D2
  1503.     BSR    lbC001E0A
  1504.     OR.B    D6,D7
  1505.     MOVE.L    (SP)+,D6
  1506.     TST.B    D7
  1507.     BEQ    lbC0016DA
  1508.     BSR    lbC001C5A
  1509. lbC0016DA    ADDQ.W    #1,D0
  1510.     DBRA    D1,lbC001632
  1511.  
  1512.     MOVEQ    #0,D0
  1513.     RTS
  1514.  
  1515.     MOVE.W    #15,_custom+color0
  1516.     MOVEQ    #-$4,D0
  1517.     RTS
  1518.  
  1519. lbC0016F0    LEA    lbC0016F0(PC),A6
  1520.     BSR    lbC001CCA
  1521.     MOVE.L    #$A88,D7
  1522.     BSR    lbC001CC0
  1523.     BTST    #2,$BFE001
  1524.     BEQ    lbC001A60
  1525.     BSET    #2,$BFD100
  1526.     TST.W    $3FF24
  1527.     BEQ.S    lbC001726
  1528.     BCLR    #2,$BFD100
  1529. lbC001726    MOVE.W    $3FF22,D0
  1530.     MOVE.W    $73FF0,D1
  1531.     CMP.W    D0,D1
  1532.     BNE    lbC001760
  1533.     MOVE.W    $3FF24,D0
  1534.     MOVE.W    $73FF2,D1
  1535.     CMP.W    D0,D1
  1536.     BNE    lbC001760
  1537.     MOVE.W    $3FF26,D0
  1538.     MOVE.W    $73FF4,D1
  1539.     CMP.W    D0,D1
  1540.     BNE    lbC001760
  1541.     BRA    lbC001808
  1542.  
  1543. lbC001760    MOVE.W    $3FF2A,-(SP)
  1544.     MOVE.W    $3FF28,-(SP)
  1545.     MOVE.L    $3FF2C,-(SP)
  1546.     MOVE.L    #$74000,$3FF2C
  1547.     MOVE.W    #9,$3FF2A
  1548.     MOVE.W    #1,$3FF28
  1549.     BSR    lbC00155E
  1550.     TST.L    D0
  1551.     BNE    lbC001A0A
  1552.     MOVE.L    #$75200,$3FF2C
  1553.     MOVE.W    #1,$3FF2A
  1554.     MOVE.W    #10,$3FF28
  1555.     BSR    lbC00155E
  1556.     MOVE.L    (SP)+,$3FF2C
  1557.     MOVE.W    (SP)+,$3FF28
  1558.     MOVE.W    (SP)+,$3FF2A
  1559.     MOVE.W    #9,$3FF32
  1560.     TST.L    D0
  1561.     BNE    lbC0017DC
  1562.     MOVE.W    #10,$3FF32
  1563. lbC0017DC    MOVE.W    $3FF22,$73FF0
  1564.     MOVE.W    $3FF24,$73FF2
  1565.     MOVE.W    $3FF26,$73FF4
  1566.     MOVE.W    $3FF32,$73FF6
  1567.     BRA    lbC001812
  1568.  
  1569. lbC001808    MOVE.W    $73FF6,$3FF32
  1570. lbC001812    LEA    $74000,A1
  1571.     MOVEQ    #0,D0
  1572.     MOVE.W    $3FF28,D0
  1573.     SUBQ.L    #1,D0
  1574.     LSL.L    #1,D0
  1575.     LSL.L    #8,D0
  1576.     ADD.L    D0,A1
  1577.     MOVE.L    $3FF2C,A2
  1578.     MOVE.W    $3FF2A,D1
  1579.     SUBQ.L    #1,D1
  1580. lbC001836    MOVE.L    #$1FF,D0
  1581. lbC00183C    MOVE.B    (A2)+,(A1)+
  1582.     DBRA    D0,lbC00183C
  1583.  
  1584.     DBRA    D1,lbC001836
  1585.  
  1586.     LEA    $74000,A2
  1587.     LEA    $38004,A1
  1588.     MOVEQ    #14,D0
  1589. lbC001854    MOVE.L    #$4E4E4E4E,(A1)+
  1590.     DBRA    D0,lbC001854
  1591.  
  1592.     MOVEQ    #1,D1
  1593. lbC001860    MOVEQ    #2,D0
  1594. lbC001862    CLR.L    (A1)+
  1595.     DBRA    D0,lbC001862
  1596.  
  1597.     MOVE.L    #$A1A1A1FE,(A1)+
  1598.     MOVE.B    $3FF27,(A1)+
  1599.     MOVE.B    $3FF25,(A1)+
  1600.     MOVE.B    D1,(A1)+
  1601.     MOVE.B    #2,(A1)+
  1602.     MOVEM.L    D2/D6/D7/A1,-(SP)
  1603.     SUBQ.L    #8,A1
  1604.     MOVEQ    #-$1,D6
  1605.     MOVEQ    #-$1,D7
  1606.     MOVEQ    #7,D2
  1607.     BSR    lbC001E0A
  1608.     MOVE.B    D6,(A1)+
  1609.     MOVE.B    D7,(A1)+
  1610.     MOVEM.L    (SP)+,D2/D6/D7/A1
  1611.     ADDQ.L    #2,A1
  1612.     MOVEQ    #10,D0
  1613. lbC00189C    MOVE.W    #$4E4E,(A1)+
  1614.     DBRA    D0,lbC00189C
  1615.  
  1616.     MOVEQ    #2,D0
  1617. lbC0018A6    CLR.L    (A1)+
  1618.     DBRA    D0,lbC0018A6
  1619.  
  1620.     MOVE.L    #$A1A1A1FB,(A1)+
  1621.     MOVE.L    #$74000,A2
  1622.     MOVE.L    D1,D0
  1623.     SUBQ.L    #1,D0
  1624.     LSL.L    #8,D0
  1625.     LSL.L    #1,D0
  1626.     ADD.L    D0,A2
  1627.     MOVEQ    #$7F,D0
  1628. lbC0018C4    MOVE.L    (A2)+,(A1)+
  1629.     DBRA    D0,lbC0018C4
  1630.  
  1631.     MOVEM.L    D2/D6/D7/A1,-(SP)
  1632.     SUB.L    #$204,A1
  1633.     MOVEQ    #-$1,D6
  1634.     MOVEQ    #-$1,D7
  1635.     MOVE.L    #$203,D2
  1636.     BSR    lbC001E0A
  1637.     MOVE.B    D6,(A1)+
  1638.     MOVE.B    D7,(A1)+
  1639.     MOVEM.L    (SP)+,D2/D6/D7/A1
  1640.     ADDQ.L    #2,A1
  1641.     MOVEQ    #9,D0
  1642. lbC0018EE    MOVE.L    #$4E4E4E4E,(A1)+
  1643.     DBRA    D0,lbC0018EE
  1644.  
  1645.     ADDQ.L    #1,D1
  1646.     MOVEQ    #0,D2
  1647.     MOVE.W    $3FF32,D2
  1648.     ADDQ.L    #1,D2
  1649.     CMP.L    D2,D1
  1650.     BNE    lbC001860
  1651.     LEA    $39A04,A0
  1652. lbC001910    MOVE.L    #$4E4E4E4E,(A1)+
  1653.     CMP.L    A0,A1
  1654.     BLT    lbC001910
  1655.     LEA    $3B404,A1
  1656.     LEA    $39A04,A0
  1657.     LEA    $7226A,A2
  1658.     MOVE.L    #$19FF,D1
  1659. lbC001934    MOVEQ    #0,D0
  1660.     MOVE.B    -(A0),D0
  1661.     ADD.W    D0,D0
  1662.     MOVE.W    0(A2,D0.W),D0
  1663.     MOVE.W    D0,-(A1)
  1664.     DBRA    D1,lbC001934
  1665.  
  1666.     LEA    $38004,A0
  1667.     MOVE.L    #$3400,D6
  1668.     JSR    $71D4A
  1669.     LEA    $3807C,A0
  1670.     MOVEQ    #0,D0
  1671.     MOVE.W    $3FF32,D0
  1672.     SUBQ.L    #1,D0
  1673. lbC001966    ADD.L    #$18,A0
  1674.     MOVE.W    #$4489,(A0)+
  1675.     MOVE.W    #$4489,(A0)+
  1676.     MOVE.W    #$4489,(A0)+
  1677.     ADD.L    #$52,A0
  1678.     MOVE.W    #$4489,(A0)+
  1679.     MOVE.W    #$4489,(A0)+
  1680.     MOVE.W    #$4489,(A0)+
  1681.     ADD.L    #$456,A0
  1682.     DBRA    D0,lbC001966
  1683.  
  1684.     MOVE.L    $3FF2C,A0
  1685.     CLR.L    D0
  1686.     MOVE.W    $3FF2A,D0
  1687.     LSL.L    #8,D0
  1688.     LSL.L    #1,D0
  1689.     ADD.L    D0,A0
  1690.     BTST    #3,$BFE001
  1691.     BEQ    lbC001A1A
  1692.     MOVE.W    #2,_custom+intreq
  1693.     MOVE.L    #$38004,_custom+dskpth
  1694.     MOVE.W    #$7F00,_custom+adkcon
  1695.     MOVE.W    #$8100,_custom+adkcon
  1696.     MOVE.W    #$8210,_custom+dmacon
  1697.     MOVE.W    #$4000,_custom+dsklen
  1698.     BSR    lbC001C9C
  1699.     MOVE.W    #$D86A,_custom+dsklen
  1700.     MOVE.W    #$D86A,_custom+dsklen
  1701.     BSR    lbC001D20
  1702.     MOVE.W    #$4000,_custom+dsklen
  1703.     CLR.L    D0
  1704.     RTS
  1705.  
  1706. lbC001A0A    MOVE.L    D0,-(SP)
  1707.     MOVE.L    #15,D0
  1708.     BSR    lbC001C7A
  1709.     MOVE.L    (SP)+,D0
  1710.     RTS
  1711.  
  1712. lbC001A1A    MOVE.L    #$FFFFFFF3,D0
  1713.     MOVE.W    #$64,$3FF20
  1714.     BSR    lbC001422
  1715.     MOVE.W    $3FF1C,-(SP)
  1716.     MOVE.W    D0,-(SP)
  1717.     MOVE.L    $404.w,A0
  1718.     JSR    (A0)
  1719.     ADDQ.L    #4,SP
  1720.     MOVE.L    D0,-(SP)
  1721.     BSR    lbC00136E
  1722.     MOVE.L    (SP)+,D0
  1723.     CMP.L    #$10000,D0
  1724.     BNE    lbC001A50
  1725.     JMP    (A6)
  1726.  
  1727. lbC001A50    MOVE.W    #$FFFF,$73FF0
  1728.     MOVE.L    #$FFFFFFF3,D0
  1729.     RTS
  1730.  
  1731. lbC001A60    MOVE.L    #$FFFFFFEF,D0
  1732.     RTS
  1733.  
  1734. lbC001A68    LEA    lbC001A68(PC),A6
  1735.     LEA    $38004,A1
  1736.     MOVEQ    #14,D0
  1737. lbC001A74    MOVE.L    #$4E4E4E4E,(A1)+
  1738.     DBRA    D0,lbC001A74
  1739.  
  1740.     MOVEQ    #1,D1
  1741. lbC001A80    MOVEQ    #2,D0
  1742. lbC001A82    CLR.L    (A1)+
  1743.     DBRA    D0,lbC001A82
  1744.  
  1745.     MOVE.L    #$A1A1A1FE,(A1)+
  1746.     MOVE.B    $3FF27,(A1)+
  1747.     MOVE.B    $3FF25,(A1)+
  1748.     MOVE.B    D1,(A1)+
  1749.     MOVE.B    #2,(A1)+
  1750.     MOVEM.L    D2/D6/D7/A1,-(SP)
  1751.     SUBQ.L    #8,A1
  1752.     MOVEQ    #-$1,D6
  1753.     MOVEQ    #-$1,D7
  1754.     MOVEQ    #7,D2
  1755.     BSR    lbC001E0A
  1756.     MOVE.B    D6,(A1)+
  1757.     MOVE.B    D7,(A1)+
  1758.     MOVEM.L    (SP)+,D2/D6/D7/A1
  1759.     ADDQ.L    #2,A1
  1760.     MOVEQ    #10,D0
  1761. lbC001ABC    MOVE.W    #$4E4E,(A1)+
  1762.     DBRA    D0,lbC001ABC
  1763.  
  1764.     MOVEQ    #2,D0
  1765. lbC001AC6    CLR.L    (A1)+
  1766.     DBRA    D0,lbC001AC6
  1767.  
  1768.     MOVE.L    #$A1A1A1FB,(A1)+
  1769.     MOVE.L    #$FF,D0
  1770. lbC001AD8    MOVE.W    $3FF30,(A1)+
  1771.     DBRA    D0,lbC001AD8
  1772.  
  1773.     MOVEM.L    D2/D6/D7/A1,-(SP)
  1774.     SUB.L    #$204,A1
  1775.     MOVEQ    #-$1,D6
  1776.     MOVEQ    #-$1,D7
  1777.     MOVE.L    #$203,D2
  1778.     BSR    lbC001E0A
  1779.     MOVE.B    D6,(A1)+
  1780.     MOVE.B    D7,(A1)+
  1781.     MOVEM.L    (SP)+,D2/D6/D7/A1
  1782.     ADDQ.L    #2,A1
  1783.     MOVEQ    #9,D0
  1784. lbC001B06    MOVE.L    #$4E4E4E4E,(A1)+
  1785.     DBRA    D0,lbC001B06
  1786.  
  1787.     ADDQ.L    #1,D1
  1788.     MOVE.W    $3FF32,D2
  1789.     ADD.W    #1,D2
  1790.     CMP.B    D2,D1
  1791.     BNE    lbC001A80
  1792.     LEA    $39A04,A0
  1793. lbC001B28    MOVE.L    #$4E4E4E4E,(A1)+
  1794.     CMP.L    A0,A1
  1795.     BLT    lbC001B28
  1796.     LEA    $3B404,A1
  1797.     LEA    $39A04,A0
  1798.     LEA    $7226A,A2
  1799.     MOVE.L    #$19FF,D1
  1800. lbC001B4C    MOVEQ    #0,D0
  1801.     MOVE.B    -(A0),D0
  1802.     ADD.W    D0,D0
  1803.     MOVE.W    0(A2,D0.W),D0
  1804.     MOVE.W    D0,-(A1)
  1805.     DBRA    D1,lbC001B4C
  1806.  
  1807.     LEA    $38004,A0
  1808.     MOVE.L    #$3400,D6
  1809.     JSR    $71D4A
  1810.     LEA    $3807C,A0
  1811.     MOVEQ    #0,D0
  1812.     MOVE.W    $3FF32,D0
  1813.     SUBQ.L    #1,D0
  1814. lbC001B7E    ADD.L    #$18,A0
  1815.     MOVE.W    #$4489,(A0)+
  1816.     MOVE.W    #$4489,(A0)+
  1817.     MOVE.W    #$4489,(A0)+
  1818.     ADD.L    #$52,A0
  1819.     MOVE.W    #$4489,(A0)+
  1820.     MOVE.W    #$4489,(A0)+
  1821.     MOVE.W    #$4489,(A0)+
  1822.     ADD.L    #$456,A0
  1823.     DBRA    D0,lbC001B7E
  1824.  
  1825.     BSR    lbC001CCA
  1826.     MOVE.L    #$A88,D7
  1827.     BSR    lbC001CC0
  1828.     BTST    #2,$BFE001
  1829.     BEQ    lbC001A60
  1830.     BSET    #2,$BFD100
  1831.     TST.W    $3FF24
  1832.     BEQ.S    lbC001BDE
  1833.     BCLR    #2,$BFD100
  1834. lbC001BDE    BTST    #3,$BFE001
  1835.     BEQ    lbC001A1A
  1836.     MOVE.W    #2,_custom+intreq
  1837.     MOVE.L    #$38004,_custom+dskpth
  1838.     MOVE.W    #$7F00,_custom+adkcon
  1839.     MOVE.W    #$8100,_custom+adkcon
  1840.     MOVE.W    #$8210,_custom+dmacon
  1841.     MOVE.W    #$4000,_custom+dsklen
  1842.     BSR    lbC001C9C
  1843.     MOVE.W    #$D86A,_custom+dsklen
  1844.     MOVE.W    #$D86A,_custom+dsklen
  1845.     BSR    lbC001D20
  1846.     MOVE.W    #$4000,_custom+dsklen
  1847.     MOVE.W    $3FF22,D1
  1848.     MOVE.W    $73FF0,D0
  1849.     CMP.W    D0,D1
  1850.     BNE    lbC001C56
  1851.     MOVE.W    #$FFFF,$73FF0
  1852. lbC001C56    MOVEQ    #0,D0
  1853.     RTS
  1854.  
  1855. lbC001C5A    MOVE.L    D0,-(SP)
  1856.     MOVE.W    #$FFF,D0
  1857. lbC001C60    MOVE.W    _custom+vhposr,_custom+color2
  1858.     DBRA    D0,lbC001C60
  1859.  
  1860.     MOVE.W    #foreground,_custom+color2
  1861.     MOVE.L    (SP)+,D0
  1862.     RTS
  1863.  
  1864. lbC001C7A    MOVEM.L    D0/D1,-(SP)
  1865.     MOVE.L    #$7FFF,D1
  1866. lbC001C84    MOVE.W    D0,_custom+color0
  1867.     DBRA    D1,lbC001C84
  1868.  
  1869.     MOVE.W    #$666,_custom+color0
  1870.     MOVEM.L    (SP)+,D0/D1
  1871.     RTS
  1872.  
  1873. lbC001C9C    MOVE.B    #$20,$BFDD00
  1874.     BTST    #4,$BFDD00
  1875.     BNE.S    lbC001C9C
  1876.     MOVE.W    #$7D00,D0
  1877. lbC001CB2    BTST    #4,$BFDD00
  1878.     DBNE    D0,lbC001CB2
  1879.  
  1880.     RTS
  1881.  
  1882. lbC001CC0    SUB.L    #1,D7
  1883.     BNE.S    lbC001CC0
  1884.     RTS
  1885.  
  1886. lbC001CCA    MOVE.W    $3FF22,D0
  1887.     LEA    $3FF34,A0
  1888.     LEA    0(A0,D0.W),A0
  1889. lbC001CDA    MOVE.W    $3FF26,D1
  1890.     BSET    #1,$BFD100
  1891.     CMP.B    (A0),D1
  1892.     BEQ    lbC0014F0
  1893.     BLS.S    lbC001CFA
  1894.     BCLR    #1,$BFD100
  1895.     ADDQ.B    #2,(A0)
  1896. lbC001CFA    SUBQ.B    #1,(A0)
  1897.     BCLR    #0,$BFD100
  1898.     NOP
  1899.     NOP
  1900.     NOP
  1901.     NOP
  1902.     BSET    #0,$BFD100
  1903.     MOVE.L    #$A88,D7
  1904.     BSR    lbC001CC0
  1905.     BRA.S    lbC001CDA
  1906.  
  1907. lbC001D20    MOVE.L    #$7A120,D7
  1908. lbC001D26    MOVE.W    _custom+intreqr,D0
  1909.     BTST    #1,D0
  1910.     BNE.S    lbC001D3E
  1911.     SUBQ.L    #1,D7
  1912.     BNE.S    lbC001D26
  1913.     MOVE.L    #$FFFFFFFF,D0
  1914.     RTS
  1915.  
  1916. lbC001D3E    MOVE.W    #2,_custom+intreq
  1917.     MOVEQ    #0,D0
  1918.     RTS
  1919.  
  1920.     MOVE.W    #$40,_custom+intreq
  1921.     MOVE.W    #$5555,_custom+bltcdat
  1922.     MOVE.L    A0,-(SP)
  1923.     ADD.L    #$40,D6
  1924.     AND.L    #$FFFFFFE0,D6
  1925.     ADD.L    D6,A0
  1926.     OR.W    #$20,D6
  1927.     SUBQ.L    #2,A0
  1928.     MOVE.L    A0,_custom+bltapth
  1929.     MOVE.W    #0,_custom+bltamod
  1930.     MOVE.W    #$FFFF,_custom+bltafwm
  1931.     MOVE.W    #$FFFF,_custom+bltalwm
  1932.     MOVE.L    A0,_custom+bltbpth
  1933.     MOVE.L    A0,_custom+bltdpth
  1934.     MOVE.W    #0,_custom+bltbmod
  1935.     MOVE.W    #0,_custom+bltdmod
  1936.     MOVE.W    #$1002,_custom+bltcon1
  1937.     MOVE.W    #$DB1,_custom+bltcon0
  1938.     MOVE.W    D6,_custom+bltsize
  1939.     BSR    lbC001DF4
  1940.     MOVE.L    (SP)+,A0
  1941.     MOVE.L    A0,_custom+bltapth
  1942.     MOVE.L    A0,_custom+bltbpth
  1943.     MOVE.L    A0,_custom+bltdpth
  1944.     MOVE.W    #0,_custom+bltcon1
  1945.     MOVE.W    #$1D8C,_custom+bltcon0
  1946.     MOVE.W    D6,_custom+bltsize
  1947.     BSR    lbC001DF4
  1948.     RTS
  1949.  
  1950. lbC001DF4    MOVE.W    _custom+intreqr,D3
  1951.     BTST    #6,D3
  1952.     BEQ.S    lbC001DF4
  1953.     MOVE.W    #$40,_custom+intreq
  1954.     RTS
  1955.  
  1956. lbC001E0A    MOVEM.L    D4/D5/A6,-(SP)
  1957.     LEA    $7246A,A6
  1958.     MOVE.L    A6,D4
  1959.     MOVEQ    #0,D5
  1960. lbC001E18    MOVE.B    (A1)+,D5
  1961.     MOVE.L    D4,A6
  1962.     EOR.B    D6,D5
  1963.     ADD.W    D5,A6
  1964.     MOVE.B    (A6),D6
  1965.     EOR.B    D7,D6
  1966.     MOVE.B    $100(A6),D7
  1967.     DBRA    D2,lbC001E18
  1968.  
  1969.     MOVEM.L    (SP)+,D4/D5/A6
  1970.     RTS
  1971.  
  1972. lbC001E32    MOVEM.L    D0-D3,-(SP)
  1973.     SUBQ.B    #1,$71EDE
  1974.     BNE    lbC001ED8
  1975.     MOVE.B    #$32,$71EDE
  1976.     MOVE.B    $7FC21,D0
  1977.     MOVE.B    $7FC23,D1
  1978.     BSR    lbC001EE0
  1979.     MOVE.B    D0,$7FC21
  1980.     MOVE.B    D1,$7FC23
  1981.     CMP.B    #$3C,D2
  1982.     BNE    lbC001ED8
  1983.     CLR.B    $7FC21
  1984.     CLR.B    $7FC23
  1985.     MOVE.B    $7FC25,D0
  1986.     MOVE.B    $7FC27,D1
  1987.     BSR    lbC001EE0
  1988.     MOVE.B    D0,$7FC25
  1989.     MOVE.B    D1,$7FC27
  1990.     CMP.B    #$3C,D2
  1991.     BNE    lbC001ED8
  1992.     CLR.B    $7FC25
  1993.     CLR.B    $7FC27
  1994.     MOVE.B    $7FC29,D0
  1995.     MOVE.B    $7FC2B,D1
  1996.     BSR    lbC001EE0
  1997.     MOVE.B    D0,$7FC29
  1998.     MOVE.B    D1,$7FC2B
  1999.     CMP.B    #$19,D2
  2000.     BNE    lbC001ED8
  2001.     CLR.B    $7FC29
  2002.     CLR.B    $7FC2B
  2003. lbC001ED8    MOVEM.L    (SP)+,D0-D3
  2004.     RTS
  2005.  
  2006.     MOVE.W    D0,D1
  2007. lbC001EE0    LSL.B    #4,D1
  2008.     OR.B    D1,D0
  2009.     ADDQ.B    #1,D0
  2010.     MOVE.B    D0,D1
  2011.     MOVE.B    D0,D2
  2012.     LSR.B    #4,D1
  2013.     AND.B    #15,D0
  2014.     RTS
  2015.  
  2016. BIOSKEYS    MOVEQ    #0,D0
  2017.     MOVEQ    #0,D1
  2018.     MOVEQ    #0,D2
  2019.     MOVE.B    $7FC2F,D1
  2020.     MOVE.B    $7FC31,D2
  2021.     LSL.B    #4,D2
  2022.     OR.B    D2,D1
  2023.     AND.L    #$1F,D1
  2024.     OR.W    D1,D0
  2025.     MOVE.B    $7FC33,D1
  2026.     MOVE.B    $7FC35,D2
  2027.     LSL.B    #4,D2
  2028.     OR.B    D2,D1
  2029.     AND.L    #15,D1
  2030.     LSL.L    #5,D1
  2031.     OR.W    D1,D0
  2032.     MOVE.B    $7FC37,D1
  2033.     MOVE.B    $7FC39,D2
  2034.     LSL.B    #4,D2
  2035.     OR.B    D2,D1
  2036.     AND.L    #$7F,D1
  2037.     LSL.L    #8,D1
  2038.     LSL.L    #1,D1
  2039.     OR.W    D1,D0
  2040.     SWAP    D0
  2041.     MOVE.B    $7FC21,D1
  2042.     MOVE.B    $7FC23,D2
  2043.     LSL.B    #4,D2
  2044.     OR.B    D2,D1
  2045.     LSR.B    #1,D1
  2046.     AND.L    #$1F,D1
  2047.     OR.W    D1,D0
  2048.     MOVE.B    $7FC25,D1
  2049.     MOVE.B    $7FC27,D2
  2050.     LSL.B    #4,D2
  2051.     OR.B    D2,D1
  2052.     AND.L    #$3F,D1
  2053.     LSL.L    #5,D1
  2054.     OR.W    D1,D0
  2055.     MOVE.B    $7FC29,D1
  2056.     MOVE.B    $7FC2B,D2
  2057.     LSL.B    #4,D2
  2058.     OR.B    D2,D1
  2059.     AND.L    #$1F,D1
  2060.     LSL.L    #8,D1
  2061.     LSL.L    #3,D1
  2062.     OR.W    D1,D0
  2063.     MOVEQ    #0,D1
  2064.     MOVEQ    #0,D2
  2065.     RTS
  2066.  
  2067. XGETTIME    MOVE.L    4(SP),D0
  2068.     CMP.W    #2,D0
  2069.     BGE    lbC001FAE
  2070.     BRA    lbC002014
  2071.  
  2072. lbC001FAE    MOVE.L    D0,D1
  2073.     AND.L    #$1F,D1
  2074.     MOVE.L    D1,D2
  2075.     LSR.B    #4,D2
  2076.     AND.B    #15,D1
  2077.     AND.B    #15,D2
  2078.     MOVE.B    D1,$7FC21
  2079.     MOVE.B    D2,$7FC23
  2080.     MOVE.L    D0,D1
  2081.     LSR.L    #5,D1
  2082.     AND.L    #$3F,D1
  2083.     MOVE.L    D1,D2
  2084.     LSR.B    #4,D2
  2085.     AND.B    #15,D1
  2086.     AND.B    #15,D2
  2087.     MOVE.B    D1,$7FC25
  2088.     MOVE.B    D2,$7FC27
  2089.     MOVE.L    D0,D1
  2090.     LSR.L    #8,D1
  2091.     LSR.L    #3,D1
  2092.     AND.L    #$1F,D1
  2093.     MOVE.L    D1,D2
  2094.     LSR.B    #4,D2
  2095.     AND.B    #15,D1
  2096.     AND.B    #15,D2
  2097.     MOVE.B    D1,$7FC29
  2098.     MOVE.B    D2,$7FC2B
  2099. lbC002014    SWAP    D0
  2100.     MOVE.W    D0,D1
  2101.     AND.L    #$1F,D1
  2102.     MOVE.L    D1,D2
  2103.     LSR.B    #4,D2
  2104.     MOVE.B    D1,$7FC2F
  2105.     MOVE.B    D2,$7FC31
  2106.     MOVE.L    D0,D1
  2107.     LSR.L    #5,D1
  2108.     AND.L    #15,D1
  2109.     MOVE.L    D1,D2
  2110.     LSR.B    #4,D2
  2111.     MOVE.B    D1,$7FC33
  2112.     MOVE.B    D2,$7FC35
  2113.     MOVE.L    D0,D1
  2114.     LSR.L    #8,D1
  2115.     LSR.L    #1,D1
  2116.     AND.L    #$7F,D1
  2117.     MOVE.L    D1,D2
  2118.     LSR.B    #4,D2
  2119.     MOVE.B    D1,$7FC37
  2120.     MOVE.B    D2,$7FC39
  2121.     MOVEQ    #0,D1
  2122.     MOVEQ    #0,D2
  2123.     RTS
  2124.  
  2125.     dc.l    $100010
  2126.     dc.l    $20302030
  2127.     dc.l    $100010
  2128.     dc.l    $20302030
  2129.     dc.l    $40504050
  2130.     dc.l    $60706070
  2131.     dc.l    $40504050
  2132.     dc.l    $60706070
  2133.     dc.l    $100010
  2134.     dc.l    $20302030
  2135.     dc.l    $100010
  2136.     dc.l    $20302030
  2137.     dc.l    $40504050
  2138.     dc.l    $60706070
  2139.     dc.l    $40504050
  2140.     dc.l    $60706070
  2141.     dc.l    $80908090
  2142.     dc.l    $A0B0A0B0
  2143.     dc.l    $80908090
  2144.     dc.l    $A0B0A0B0
  2145.     dc.l    $C0D0C0D0
  2146.     dc.l    $E0F0E0F0
  2147.     dc.l    $C0D0C0D0
  2148.     dc.l    $E0F0E0F0
  2149.     dc.l    $80908090
  2150.     dc.l    $A0B0A0B0
  2151.     dc.l    $80908090
  2152.     dc.l    $A0B0A0B0
  2153.     dc.l    $C0D0C0D0
  2154.     dc.l    $E0F0E0F0
  2155.     dc.l    $C0D0C0D0
  2156.     dc.l    $E0F0E0F0
  2157.     dc.l    $100010
  2158.     dc.l    $20302030
  2159.     dc.l    $100010
  2160.     dc.l    $20302030
  2161.     dc.l    $40504050
  2162.     dc.l    $60706070
  2163.     dc.l    $40504050
  2164.     dc.l    $60706070
  2165.     dc.l    $100010
  2166.     dc.l    $20302030
  2167.     dc.l    $100010
  2168.     dc.l    $20302030
  2169.     dc.l    $40504050
  2170.     dc.l    $60706070
  2171.     dc.l    $40504050
  2172.     dc.l    $60706070
  2173.     dc.l    $80908090
  2174.     dc.l    $A0B0A0B0
  2175.     dc.l    $80908090
  2176.     dc.l    $A0B0A0B0
  2177.     dc.l    $C0D0C0D0
  2178.     dc.l    $E0F0E0F0
  2179.     dc.l    $C0D0C0D0
  2180.     dc.l    $E0F0E0F0
  2181.     dc.l    $80908090
  2182.     dc.l    $A0B0A0B0
  2183.     dc.l    $80908090
  2184.     dc.l    $A0B0A0B0
  2185.     dc.l    $C0D0C0D0
  2186.     dc.l    $E0F0E0F0
  2187.     dc.l    $C0D0C0D0
  2188.     dc.l    $E0F0E0F0
  2189.     dc.l    $10001
  2190.     dc.l    $2030203
  2191.     dc.l    $10001
  2192.     dc.l    $2030203
  2193.     dc.l    $4050405
  2194.     dc.l    $6070607
  2195.     dc.l    $4050405
  2196.     dc.l    $6070607
  2197.     dc.l    $10001
  2198.     dc.l    $2030203
  2199.     dc.l    $10001
  2200.     dc.l    $2030203
  2201.     dc.l    $4050405
  2202.     dc.l    $6070607
  2203.     dc.l    $4050405
  2204.     dc.l    $6070607
  2205.     dc.l    $8090809
  2206.     dc.l    $A0B0A0B
  2207.     dc.l    $8090809
  2208.     dc.l    $A0B0A0B
  2209.     dc.l    $C0D0C0D
  2210.     dc.l    $E0F0E0F
  2211.     dc.l    $C0D0C0D
  2212.     dc.l    $E0F0E0F
  2213.     dc.l    $8090809
  2214.     dc.l    $A0B0A0B
  2215.     dc.l    $8090809
  2216.     dc.l    $A0B0A0B
  2217.     dc.l    $C0D0C0D
  2218.     dc.l    $E0F0E0F
  2219.     dc.l    $C0D0C0D
  2220.     dc.l    $E0F0E0F
  2221.     dc.l    $10001
  2222.     dc.l    $2030203
  2223.     dc.l    $10001
  2224.     dc.l    $2030203
  2225.     dc.l    $4050405
  2226.     dc.l    $6070607
  2227.     dc.l    $4050405
  2228.     dc.l    $6070607
  2229.     dc.l    $10001
  2230.     dc.l    $2030203
  2231.     dc.l    $10001
  2232.     dc.l    $2030203
  2233.     dc.l    $4050405
  2234.     dc.l    $6070607
  2235.     dc.l    $4050405
  2236.     dc.l    $6070607
  2237.     dc.l    $8090809
  2238.     dc.l    $A0B0A0B
  2239.     dc.l    $8090809
  2240.     dc.l    $A0B0A0B
  2241.     dc.l    $C0D0C0D
  2242.     dc.l    $E0F0E0F
  2243.     dc.l    $C0D0C0D
  2244.     dc.l    $E0F0E0F
  2245.     dc.l    $8090809
  2246.     dc.l    $A0B0A0B
  2247.     dc.l    $8090809
  2248.     dc.l    $A0B0A0B
  2249.     dc.l    $C0D0C0D
  2250.     dc.l    $E0F0E0F
  2251.     dc.l    $C0D0C0D
  2252.     dc.l    $E0F0E0F
  2253.     dc.l    1
  2254.     dc.l    $40005
  2255.     dc.l    $100011
  2256.     dc.l    $140015
  2257.     dc.l    $400041
  2258.     dc.l    $440045
  2259.     dc.l    $500051
  2260.     dc.l    $540055
  2261.     dc.l    $1000101
  2262.     dc.l    $1040105
  2263.     dc.l    $1100111
  2264.     dc.l    $1140115
  2265.     dc.l    $1400141
  2266.     dc.l    $1440145
  2267.     dc.l    $1500151
  2268.     dc.l    $1540155
  2269.     dc.l    $4000401
  2270.     dc.l    $4040405
  2271.     dc.l    $4100411
  2272.     dc.l    $4140415
  2273.     dc.l    $4400441
  2274.     dc.l    $4440445
  2275.     dc.l    $4500451
  2276.     dc.l    $4540455
  2277.     dc.l    $5000501
  2278.     dc.l    $5040505
  2279.     dc.l    $5100511
  2280.     dc.l    $5140515
  2281.     dc.l    $5400541
  2282.     dc.l    $5440545
  2283.     dc.l    $5500551
  2284.     dc.l    $5540555
  2285.     dc.l    $10001001
  2286.     dc.l    $10041005
  2287.     dc.l    $10101011
  2288.     dc.l    $10141015
  2289.     dc.l    $10401041
  2290.     dc.l    $10441045
  2291.     dc.l    $10501051
  2292.     dc.l    $10541055
  2293.     dc.l    $11001101
  2294.     dc.l    $11041105
  2295.     dc.l    $11101111
  2296.     dc.l    $11141115
  2297.     dc.l    $11401141
  2298.     dc.l    $11441145
  2299.     dc.l    $11501151
  2300.     dc.l    $11541155
  2301.     dc.l    $14001401
  2302.     dc.l    $14041405
  2303.     dc.l    $14101411
  2304.     dc.l    $14141415
  2305.     dc.l    $14401441
  2306.     dc.l    $14441445
  2307.     dc.l    $14501451
  2308.     dc.l    $14541455
  2309.     dc.l    $15001501
  2310.     dc.l    $15041505
  2311.     dc.l    $15101511
  2312.     dc.l    $15141515
  2313.     dc.l    $15401541
  2314.     dc.l    $15441545
  2315.     dc.l    $15501551
  2316.     dc.l    $15541555
  2317.     dc.l    $40004001
  2318.     dc.l    $40044005
  2319.     dc.l    $40104011
  2320.     dc.l    $40144015
  2321.     dc.l    $40404041
  2322.     dc.l    $40444045
  2323.     dc.l    $40504051
  2324.     dc.l    $40544055
  2325.     dc.l    $41004101
  2326.     dc.l    $41044105
  2327.     dc.l    $41104111
  2328.     dc.l    $41144115
  2329.     dc.l    $41404141
  2330.     dc.l    $41444145
  2331.     dc.l    $41504151
  2332.     dc.l    $41544155
  2333.     dc.l    $44004401
  2334.     dc.l    $44044405
  2335.     dc.l    $44104411
  2336.     dc.l    $44144415
  2337.     dc.l    $44404441
  2338.     dc.l    $44444445
  2339.     dc.l    $44504451
  2340.     dc.l    $44544455
  2341.     dc.l    $45004501
  2342.     dc.l    $45044505
  2343.     dc.l    $45104511
  2344.     dc.l    $45144515
  2345.     dc.l    $45404541
  2346.     dc.l    $45444545
  2347.     dc.l    $45504551
  2348.     dc.l    $45544555
  2349.     dc.l    $50005001
  2350.     dc.l    $50045005
  2351.     dc.l    $50105011
  2352.     dc.l    $50145015
  2353.     dc.l    $50405041
  2354.     dc.l    $50445045
  2355.     dc.l    $50505051
  2356.     dc.l    $50545055
  2357.     dc.l    $51005101
  2358.     dc.l    $51045105
  2359.     dc.l    $51105111
  2360.     dc.l    $51145115
  2361.     dc.l    $51405141
  2362.     dc.l    $51445145
  2363.     dc.l    $51505151
  2364.     dc.l    $51545155
  2365.     dc.l    $54005401
  2366.     dc.l    $54045405
  2367.     dc.l    $54105411
  2368.     dc.l    $54145415
  2369.     dc.l    $54405441
  2370.     dc.l    $54445445
  2371.     dc.l    $54505451
  2372.     dc.l    $54545455
  2373.     dc.l    $55005501
  2374.     dc.l    $55045505
  2375.     dc.l    $55105511
  2376.     dc.l    $55145515
  2377.     dc.l    $55405541
  2378.     dc.l    $55445545
  2379.     dc.l    $55505551
  2380.     dc.l    $55545555
  2381.     dc.l    $102030
  2382.     dc.l    $40506070
  2383.     dc.l    $8191A1B1
  2384.     dc.l    $C1D1E1F1
  2385.     dc.l    $12023222
  2386.     dc.l    $52427262
  2387.     dc.l    $9383B3A3
  2388.     dc.l    $D3C3F3E3
  2389.     dc.l    $24340414
  2390.     dc.l    $64744454
  2391.     dc.l    $A5B58595
  2392.     dc.l    $E5F5C5D5
  2393.     dc.l    $36261606
  2394.     dc.l    $76665646
  2395.     dc.l    $B7A79787
  2396.     dc.l    $F7E7D7C7
  2397.     dc.l    $48586878
  2398.     dc.l    $8182838
  2399.     dc.l    $C9D9E9F9
  2400.     dc.l    $8999A9B9
  2401.     dc.l    $5A4A7A6A
  2402.     dc.l    $1A0A3A2A
  2403.     dc.l    $DBCBFBEB
  2404.     dc.l    $9B8BBBAB
  2405.     dc.l    $6C7C4C5C
  2406.     dc.l    $2C3C0C1C
  2407.     dc.l    $EDFDCDDD
  2408.     dc.l    $ADBD8D9D
  2409.     dc.l    $7E6E5E4E
  2410.     dc.l    $3E2E1E0E
  2411.     dc.l    $FFEFDFCF
  2412.     dc.l    $BFAF9F8F
  2413.     dc.l    $9181B1A1
  2414.     dc.l    $D1C1F1E1
  2415.     dc.l    $10003020
  2416.     dc.l    $50407060
  2417.     dc.l    $8393A3B3
  2418.     dc.l    $C3D3E3F3
  2419.     dc.l    $2122232
  2420.     dc.l    $42526272
  2421.     dc.l    $B5A59585
  2422.     dc.l    $F5E5D5C5
  2423.     dc.l    $34241404
  2424.     dc.l    $74645444
  2425.     dc.l    $A7B78797
  2426.     dc.l    $E7F7C7D7
  2427.     dc.l    $26360616
  2428.     dc.l    $66764656
  2429.     dc.l    $D9C9F9E9
  2430.     dc.l    $9989B9A9
  2431.     dc.l    $58487868
  2432.     dc.l    $18083828
  2433.     dc.l    $CBDBEBFB
  2434.     dc.l    $8B9BABBB
  2435.     dc.l    $4A5A6A7A
  2436.     dc.l    $A1A2A3A
  2437.     dc.l    $FDEDDDCD
  2438.     dc.l    $BDAD9D8D
  2439.     dc.l    $7C6C5C4C
  2440.     dc.l    $3C2C1C0C
  2441.     dc.l    $EFFFCFDF
  2442.     dc.l    $AFBF8F9F
  2443.     dc.l    $6E7E4E5E
  2444.     dc.l    $2E3E0E1E
  2445.     dc.l    $214263
  2446.     dc.l    $84A5C6E7
  2447.     dc.l    $8294A6B
  2448.     dc.l    $8CADCEEF
  2449.     dc.l    $31107352
  2450.     dc.l    $B594F7D6
  2451.     dc.l    $39187B5A
  2452.     dc.l    $BD9CFFDE
  2453.     dc.l    $62432001
  2454.     dc.l    $E6C7A485
  2455.     dc.l    $6A4B2809
  2456.     dc.l    $EECFAC8D
  2457.     dc.l    $53721130
  2458.     dc.l    $D7F695B4
  2459.     dc.l    $5B7A1938
  2460.     dc.l    $DFFE9DBC
  2461.     dc.l    $C4E586A7
  2462.     dc.l    $40610223
  2463.     dc.l    $CCED8EAF
  2464.     dc.l    $48690A2B
  2465.     dc.l    $F5D4B796
  2466.     dc.l    $71503312
  2467.     dc.l    $FDDCBF9E
  2468.     dc.l    $79583B1A
  2469.     dc.l    $A687E4C5
  2470.     dc.l    $22036041
  2471.     dc.l    $AE8FECCD
  2472.     dc.l    $2A0B6849
  2473.     dc.l    $97B6D5F4
  2474.     dc.l    $13325170
  2475.     dc.l    $9FBEDDFC
  2476.     dc.l    $1B3A5978
  2477.     dc.l    $88A9CAEB
  2478.     dc.l    $C2D4E6F
  2479.     dc.l    $80A1C2E3
  2480.     dc.l    $4254667
  2481.     dc.l    $B998FBDA
  2482.     dc.l    $3D1C7F5E
  2483.     dc.l    $B190F3D2
  2484.     dc.l    $35147756
  2485.     dc.l    $EACBA889
  2486.     dc.l    $6E4F2C0D
  2487.     dc.l    $E2C3A081
  2488.     dc.l    $66472405
  2489.     dc.l    $DBFA99B8
  2490.     dc.l    $5F7E1D3C
  2491.     dc.l    $D3F291B0
  2492.     dc.l    $57761534
  2493.     dc.l    $4C6D0E2F
  2494.     dc.l    $C8E98AAB
  2495.     dc.l    $44650627
  2496.     dc.l    $C0E182A3
  2497.     dc.l    $7D5C3F1E
  2498.     dc.l    $F9D8BB9A
  2499.     dc.l    $75543716
  2500.     dc.l    $F1D0B392
  2501.     dc.l    $2E0F6C4D
  2502.     dc.l    $AA8BE8C9
  2503.     dc.l    $26076445
  2504.     dc.l    $A283E0C1
  2505.     dc.l    $1F3E5D7C
  2506.     dc.l    $9BBAD9F8
  2507.     dc.l    $17365574
  2508.     dc.l    $93B2D1F0
  2509.     dc.l    $1234
  2510.     dc.l    $56780000
  2511.     dcb.l    $40,0
  2512.     dcb.l    $40,0
  2513.     dcb.l    $40,0
  2514.     dcb.l    $40,0
  2515.     dcb.l    $40,0
  2516.     dcb.l    $23,0
  2517.     dcb.b    3,0
  2518.